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Preface 


This book shows how to put together a large machine lan¬ 
guage program. All of the fundamentals were covered in my 
first book. Machine Language for Beginners. What remains is to 
put the rules to use by constructing a working program, to 
take the theory into the field and show how machine language 
is done. 

Showing how to construct an assembler—written entirely 
in machine language—would serve two useful purposes. It 
would illustrate advanced programming technique and also 
provide the reader with a powerful assembler to use in other 
ML programming. 

This book, then, offers the reader both a detailed descrip¬ 
tion of a sophisticated machine language program (the LADS 
assembler) and an efficient tool, a complete language with 
which to write other machine language programs. Every line 
in the LADS assembler program is described. All the sub¬ 
routines are picked apart and explained. Each major routine is 
examined in depth. 

LADS, the Label Assembler Development System, is a 
fast, feature-laden assembler—it compares favorably with the 
best assemblers available commercially. And not the least of 
its virtues is the fact that few programs you will ever use will 
be as thoroughly documented and therefore as accessible to 
your understanding, modification, and customization. 

LADS is a learning device too. By exploring the assem¬ 
bler, you will learn how to go about writing your own large 
machine language (ML) programs. You will see how a data 
base is created and maintained, how to communicate with 
peripherals, and how to accomplish many other ML tasks. 
Also, because you can study the creation of a computer lan¬ 
guage, the LADS assembler, you will gain an in-depth knowl¬ 
edge of the intimate details of direct communication with your 
computer. 

Most programming involves a tradeoff between three pos¬ 
sible objectives: speed, brevity, or clarity. You can program 
with the goal of creating the fastest running program possible. 
Or you can try to write a program which uses up as little 
memory as possible. Or you can try to make the program as 
understandable as possible, maximizing the readability of the 
program listing with REMarks. 



LADS emphasizes clarity so that its source code will serve 
as a learning tool and as the focus of this book. It's designed 
so that important events in the program can be easily ex¬ 
plained and understood. Virtually every ML instruction, every 
tiny step, is commented within the source code listings follow¬ 
ing each chapter. 

This doesn't mean that LADS is flabby or slow. Assem¬ 
bling roughly 1000 bytes a minute and taking up 5K in mem¬ 
ory, LADS is considerably faster and more compact than most 
commercial assemblers. That's because, in ML, you can have 
the best of both worlds: You can comment as heavily as you 
want, but the assembler will strip off the comments when it 
creates the object code. In this way, clarity does not sacrifice 
memory or speed. 

The frequent comments contribute considerably to the 
educational value of this assembler. Exploring LADS is a way 
to learn how to achieve many common programming goals 
and how to construct a large, significant program entirely in 
ML. An additional advantage of this comprehensibility is that 
you'll be able to modify LADS to suit yourself: Add your own 
pseudo-ops, define defaults, format output. All this is referred 
to as a language's extensibility. We'll get to this in a minute. 

What BASIC is to BASIC programming, an assembler is to 
ML programming. LADS is a complete language. You write 
programs (source code) which LADS translates into the fin¬ 
ished, executable ML (object code). Unlike less advanced 
assemblers, however, symbolic assemblers such as LADS can 
be as easy to use as higher level languages like BASIC. The 
source code is very simple to modify. Variables and sub¬ 
routines have names. The program can be internally com¬ 
mented with REM-like explanations. Strings are automatic via 
the .BYTE command. There are a variety of other built-in fea¬ 
tures, the pseudo-ops, which make it easy to save object pro¬ 
grams, control the screen and printer listings, choose hex or 
decimal disassembly, and service other common programming 
needs. 

Perhaps the best feature of LADS, though, is its extensibil¬ 
ity. Because you have the entire source code along with de¬ 
tailed explanations of all the routines, you can customize 
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LADS to suit yourself. Add as many pseudo-ops as you want. 
Redesign your ML programming language anytime and for 
any reason. Using an extensible programming language gives 
you control not only over the programs you design, but also 
over the way that they are created. You can adjust your tools 
to fit your own work style. 

Do you often need to subtract hex numbers during assem¬ 
bly? It's easy to stick in a — command. Would you rather that 
LADS read source programs from RAM memory instead of 
disk files? (This makes it possible to assemble using a tape 
drive. It can also be a bit faster.) In Chapter 11 we'll go 
through the steps necessary to make this and other modifica¬ 
tions. You'll be surprised at how easy it is. 

Finally, studying the language (the LADS assembler) 
which produces machine language will significantly deepen 
your understanding of ML programming. 

I would like to thank Charles Brannon for his translation 
and work with the Atari version of LADS, Kevin Martin for his 
translation and work with the Apple version, and Todd 
Heimarck for his many helpful discoveries about the assembler. 
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How to Use This Book 


The dual nature of this book—it's both a text and a pro¬ 
gram—offers you a choice. You can follow the ideas: reading 
through the chapters, studying the program listings, and deep¬ 
ening your understanding of machine language programming. 

Alternatively, you can type in the LADS assembler and 
experiment with it: learning its features, trying out modifica¬ 
tions, and using it to write your own machine language pro¬ 
grams. Appendix A describes how to use the assembler and 
Appendix B provides instructions on typing it in. If you choose 
this second approach, the rest of the book can serve as a ref¬ 
erence and a map for modifying the assembler. The tutorials 
can also help to clarify the structure and purpose of the vari¬ 
ous subroutines and subprograms. 

LADS is nearly 5K long, and for those who prefer not to 
type it in, it can be purchased on a disk by calling COMPUTE! 
Publications toll free at 1-800-334-0868. Be sure to state 
whether you want the Commodore, Atari, or Apple disk. The 
disk contains both the LADS source and object code (these 
terms are defined below). To create customized versions of the 
assembler, you will need the source code. It, too, can be typed 
in (it is printed in sections at the end of Chapters 2-9). If you 
don't type in any of the comments, it is roughly 10K long. The 
Commodore disk contains the various PET/CBM (Upgrade 
and 4.0 BASIC), VIC, and Commodore 64 versions. 

Definitions 

There are several concepts and terms which will be important 
to your understanding of the rest of the book. 

ML programming, and programming in general for that 
matter, is a new discipline, a new art. There are few rules yet 
and few definitions. Words take on new meanings and are 
sometimes used haphazardly. For example, the word monitor 
means two entirely different things in current computerese: (1) 
a debugging program for machine language work or (2) a spe¬ 
cial TV designed to receive video signals from a direct video 
source like a computer. 

Since there is no established vocabulary, some program¬ 
ming ideas are described by an imprecise cluster of words. 
When applied to machine language programming, the terms 
pointer, variable, register, vector, flag, and constant can all refer 
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to the same thing. There are shades of difference developing 
which distinguish between these words, but as yet, nothing 
has really solidified. All these terms refer, in ML parlance, to a 
byte or two which the programmer sets aside in the source 
code. In BASIC, all these terms would be covered by the 
word variable. 

Loose Lingo 

Purists will argue that each of these words has a distinct, de¬ 
finable meaning. But then purists will always argue. The fact 
is that computing is still a young discipline and its lingo is still 
loose. 

Some professors of BASIC like to distinguish between vari¬ 
ables and constants, the latter meaning unchanging definitions 
like SCREEN = 1024. The address of the start of screen RAM 
is not going to vary; it's a constant. 

In BASIC, something like SCORE = 10 would be a vari¬ 
able. The score might change and become 20 or whatever. At 
any rate, the word SCORE will probably vary during the execu¬ 
tion of the program. In ML, such a variable would be set up as 
a two-byte reserved space within the source code: 

100 SCORE .BYTE 0 0 

Then, anytime you ADC SCORE or ADC SCORE+ 1, you 
will add to the SCORE. That's a variable. The word pointer re¬ 
fers to those two-byte spaces in zero page which are used by 
Indirect Y addressing—like LDA (155),Y—and which serve to 
point to some other address in memory. 

Register usually means the X or Y or Accumulator bytes 
within the 6502 chip itself. As generally used, the word reg¬ 
ister refers to something hard wired within the computer: a 
circuit which, like memory, can hold information. It can also 
refer to a programmer-defined, heavily used, single-byte vari¬ 
able within an ML program: 

100 TEMP .BYTE 0 

A vector is very much like a pointer. It stores a two-byte 
address but can also include the JMP instruction, forming a 
three-byte unit. If you have a series of vectors, it would be 
called a "jump table," and the Kernal in Commodore comput¬ 
ers is such a table: 
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FFD2 JMP $F252 
FFD5 JMP $A522 
FFD8 JMP $B095 

Thus, if you JSR $FFD2, you will bounce off the JMP into 
$F252, which is a subroutine ending in RTS. The RTS will 
send you back to your own ML code where you JSRed to the 
JMP table. That's because JMP leaves no return address, but 
JSR does. 

A flag is a very limited kind of variable: It generally has 
only two states, on or off. In LADS, PRINTFLAG will send ob¬ 
ject code (defined below) to the printer if the flag holds any 
number other than zero. If the PRINTFLAG is down, or off, 
and holds a zero, nothing is sent to the printer. The word flag 
comes from the Status Register (a part of the internals of the 
6502 chip). The Status Register is one byte, but most of the bits 
in that byte represent different conditions (the current action in 
an ML program resulted in a negative, a zero, a carry, an inter¬ 
rupt, decimal mode, or an overflow). The bits in the Status Reg¬ 
ister byte are, themselves, individual flags. ML programmers, 
however, usually devote an entire byte to the flags they use in 
their own programs. Whole bytes are easier to test. 

Source code is what you type into the computer as ML 
instructions and their arguments: 

100 *= 864 

110 LDA #$0F ; THIS WILL PUT A 15 ($0F) INTO THE 
ACCUMULATOR 

120 INY ; THIS RAISES THE Y REGISTER 

After you type this in, you assemble it by turning control 
over to the LADS assembler after naming this as the source 
code. The result of the assembly is the object code. If you have 
the .S pseudo-op on, causing the object code to print to the 
screen, you will see: 

100 0360 A9 OF LDA #$0F ; THIS WILL PUT A 15 ($0F) 

INTO THE ACCUMULATOR 
120 0362 C8 INY ; THIS RAISES THE Y 

REGISTER 

Properly speaking, the object code is the numbers which, 
taken together, form a runnable ML program. These numbers 
can be executed by the computer since they are a program. In 
the example above, the object code is A9 OF C8. That's the 
computer-understandable version of LDA #$0F: INY. It's gen- 
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erated by the assembler. An assembler translates source code 
into object code. 

A complex assembler like LADS allows the programmer to 
use labels instead of numbers. This has several advantages. But 
it does require that the assembler pass through the source code 
twice. (When an assembler goes through source code, it is 
called a pass.) The first time through, the assembler just gathers 
all the label names and assigns a numeric value to each label. 
Then, the second time through the source code, the assembler 
can fill in all the labels with the appropriate numbers. It doesn't 
always know, the first time through, what every label means. 
Here's why: 

100 LDA 4222 

110 BEQ NOSCORE 

120 JMP SOMESCORE 

130 NOSCORE INX:JMP CONTINUE 

140 SOMESCORE INY 

150 CONTINUE LDA 4223 

As you can see, the first time the assembler goes through 
this source code, it will come upon several labels that it doesn't 
yet recognize. When the assembler is making its first pass, the 
labels NOSCORE, SOMESCORE, and CONTINUE have no 
meaning. They haven't yet been defined. They are address-type 
labels. That is, they stand for a location within the ML program 
to which JMPs or branches are directed. Sometimes those 
jumps and branches will be forward in the code, not yet 
encountered. 

The assembler is keeping track of all the addresses as it 
works its way through the source code. But labels cannot be de¬ 
fined (given their numeric value) until they appear. So on the 
first pass through the source code, the assembler cannot fill in 
values for things like NOSCORE in line 110. It will do this the 
second time through the source code, on the second pass. The 
first pass has a simple purpose: The assembler must build an 
array of label names and their associated numeric values. Then, 
on the second pass, the assembler can look up each label in the 
array and replace label names (when they're being used as 
arguments like LDA NAME) with their numeric value. This 
transforms the words in the source code into numbers in the 
object code and we have a runnable ML program. Throughout 
this book, we'll frequently have occasion to mention pass 1 or 
pass 2. 
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The Two Kinds of Labels 

There are two kinds of labels in ML source code: equate and ad¬ 
dress labels. Equate labels are essentially indistinguishable from 
the way that variables are defined in BASIC: 

100 INCOME = 15000 

This line could appear, unaltered, in LADS or in a BASIC 
program. (Remember this rule about labels: Define your equate 
labels at the start of the source code. The LADS source code 
shows how this is done. The first part of LADS is called Defs 
and it contains all the equate definitions. This is not only 
convenient and good programming practice; it also helps the 
assembler keep things straight.) 

The other kind of label is not found in BASIC. It's as if you 
can give a name to a line. In BASIC, when you need to branch 
to a subroutine, you must: 

10 GOSUB 500 


500 (the subroutine sits here) 

that is, you must refer to a line number. But in LADS, you give 
subroutines names: 

10 JSR RAISEIT; GOSUB TO THE RAISE-THE-Y-REGISTER- 
SUBROUTINE 

500 RAISEIT INY; THE SUBROUTINE WHICH RAISES Y 
510 RTS 

This type of label, which refers to an address within the ML 
program (and is generally the target of JSR, JMP, or a branch 
instruction), is called an address-type label, or sometimes a PC- 
type label. (PC is short for Program Counter, the variable 
within the 6502 chip which keeps track of where we are during 
execution of an ML program. In LADS, we refer to the variable 
SA as the Program Counter—SA keeps track, for LADS, of 
where it is during the act of assembling a program.) 

Subprogram is a useful word. LADS source code is written 
like a BASIC program, with line numbers and multiple-statement 
lines, and it's written in a BASIC environment. The source 
code is saved and loaded as if it were a BASIC program. But if 
you are writing a large ML program, you might write several 
of these source code ''programs,'' saving them to disk sepa- 
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rately, but linking them with the .FILE and .END pseudo-ops 
into one big chain of source programs. This chain will be 
assembled by LADS into a single, large, runnable ML object 
program. 

Each of the source programs, each link in this chain, is 
called a subprogram. In the source code which makes up LADS 
there are 13 such subprograms—from Defs to Tables—compris¬ 
ing the whole of LADS when assembled together. This book is 
largely a description of these subprograms, and some chapters 
are devoted to the explication of a single subprogram. To distin¬ 
guish subprograms from subroutines and label names, the sub¬ 
program names (like Tables) have only their first letter 
capitalized. Subroutines and labels are all-caps (like 
PRINTFLAG). 

The word integer means a number with no fraction at¬ 
tached. In the number 10.557, the integer is the 10 since inte¬ 
gers have no decimal point. They are whole numbers. ML 
programs rarely work with anything other than integers. In fact, 
the integers are usually between 0 and 65535 because that's a 
convenient range within which the 6502 chip can operate—two 
bytes can represent this range of numbers. Of course, decimal 
fractions are not allowed. But virtually anything can be accom¬ 
plished with this limitation. And if you need to work with big 
or fractional numbers, there are ways. 

In any case, when we refer to integer in this book, we 
mean a number that LADS can manipulate, in a form that 
LADS can understand, a number which is a number and not, 
for example, a graphics code. For example, when you write 
LDA $15 as a part of your source code, the computer holds the 
number 15 in ASCII code form. In this printable form, 15 is 
held in the computer as the numbers $31 $35 which, when 
printed on the screen, provide the characters 1 and 5 (but not 
the true number 15). For the assembler to work with this 15 as 
the number 15, it must be transformed into a two-byte integer, 
an actual number. When translated, and put into two bytes, the 
characters 1 5 become: $0F 00. We'll see what this means, and 
how the translation is accomplished, in Chapter 5 where we 
examine the subprogram Valdec. It's Valdec's job to turn ASCII 
characters into true numbers. 
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The Seventh Bit (Really the Eighth) 

For most of human history, we had to get along without the 0. 
It was a great leap forward for mankind when calculations 
could include the concept of nothing, zero. But now there's an¬ 
other mental leap to be made, a private adjustment to the way 
that computers use zero: They often start counting with a zero, 
something humans never do. 

Imagine you are driving along and you've been told that 
your friend's new house is the third house in the next block. 
You don't say “house zero, house one, house two, house 
three." It makes no sense (to us) to say “house zero." We al¬ 
ways count up from 1. 

But the computer often starts counting from zero. In 
BASIC, when you DIM (15) to dimension an array, it's easy to 
overlook the fact that you've really DIMed 16 items—the com¬ 
puter has created a zeroth item in this array. 

It's sometimes important to be aware of this quirk. A num¬ 
ber of programming errors result from forgetting that unnatural 
(or at least, nonhuman) zeroth item. 

This situation has resulted in an unfortunate way of count¬ 
ing bits within bytes. It's unfortunate in two ways: Each bit is 
off by 1 (to our way of thinking) because there is a zeroth bit. 
And, to make things even tougher on us, the bits are counted 
from right to left. Quite a perversity, given that we read from left 
to right. Here's a diagram of the Status Register in the 6502 
chip, each bit representing a flag: 

76543210 (bit number within the Status Register byte) 
N V - B D I Z C (flag name) 

As a brief aside, let's quickly review the meanings of these 
flags. The flag names in the Status Register reflect various pos¬ 
sible conditions following an ML event. For example, the LDA 
command always affects the N and Z flags. If you LDA #0, the 
Z flag will go up, showing that a zero resulted (but the N flag 
will go, or stay, down since the seventh bit isn't set by a zero). 
Here's what the individual flags mean: N (negative result), V 
(result overflowed), - (unused), B (BRK instruction used), D 
(decimal mode), I (interrupt disable), Z (result zero), C (carry 
occurred). 

But in addition to the meanings of these flags in the Status 
Register, notice how bytes are divided into bits: count right to 
left, and start counting from the zeroth bit. 
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This is relevant to our discussion of LADS when we refer 
to bit 7. This bit has a special importance because it can sig¬ 
nify several things in ML. 

If you are using signed arithmetic (where numbers can be 
positive or negative), bit 7 tells you the sign of the number 
you're dealing with. In many character codes, a set (up) sev¬ 
enth bit will show that a character is shifted (that it's F instead 
of f). In the Atari, it means that the character is in inverse 
video. But a set seventh bit often signifies something. 

One common trick is to use bit 7 to act as a delimiter, 
showing when one data item has ended and another begins. 
Since the entire alphabet can easily fit into numbers which 
don't require the seventh bit up (any number below 128 
leaves the seventh bit down), you can set up a data table by 
"shifting" the first character of each data item to show where 
it starts. The data can later be restored to normal by "lower¬ 
ing" the shifted character. Such a table would look like this: 
FirstwordSecondwordAnotherwordYetanother. 

BASIC stores a table of all its keywords in a similar fash¬ 
ion, except that it shifts the final character of each word 
(enDstoPgotOgosuBinpuT...). Either way, shifted characters can 
be easily tested during a search, making this an efficient way 
to store data. Just be sure to remember that when we refer to 
the seventh bit, we're talking about the leftmost bit. 

Springboard 

In the 6502 chip instruction set, there aren't any instructions for 
giant branches. Some chips allow you to branch thousands of 
bytes away, but our chip limits us to 127 bytes in either direc¬ 
tion from the location of the branch. Normally, this isn't much 
of a problem. You JSR or JMP when you want to go far away. 

But as you assemble, you'll be making tests with BNE and 
BEQ and their cousins in the B group. Then, later, you'll add 
some more pieces of programming between the branch instruc¬ 
tion and its target. Without realizing it, you'll have moved the 
target too far away from the branch instruction. It will be a 
branch out of range. 

This is pretty harmless. When you assemble it, LADS will 
let you know. It will print a bold error message, print the 
offending line so you can see where it happened, and even ring 
a bell in case you're not paying attention. What can you do. 
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though, when you have branched out of range? Use a 
springboard. 

The easiest and best way to create a giant branch is this: 

100 LDA 15 
110 BEQ JTARGET 

170 JTARGET JMP TARGET; THIS IS THE SPRINGBOARD 

930 TARGET INY ; HERE IS OUR REAL DESTINATION FROM 
LINE 110 

When you get a BRANCH OUT OF RANGE ERROR mes¬ 
sage, just create a false target. In LADS, the letter J is added to 
the real target name to identify these springboards (see line 170 
above). All a springboard does is sit somewhere near enough to 
the branch to be acceptable. All it does is JMP to the true tar¬ 
get. It's like a little trampoline whose only purpose is to bounce 
the program to the true destination of the branch. 

One final note: To make it easy to locate programming 
explanations in the text of this book, all line numbers are in 
boldface. Most of the chapters in the book cover a single major 
subprogram. At the end of a chapter is the appropriate source 
code listing. It is these listings to which the boldface line num¬ 
bers refer. 

Now, let's plunge into the interior of the LADS assembler. 
Well start with the equate labels, the definitions of special ad¬ 
dresses within the computer. 
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Defs: 

Equates and Definitions 

Let's get started. Recall that the boldface numbers within the 
text refer to line numbers within the program listings at the 
end of each chapter. The first section of LADS defines many 
of the variables which are used throughout the program. It's 
called "Defs." 

Defs for Relocatability 

One of the advantages of advanced assemblers, LADS in¬ 
cluded, is that they create object code (runnable ML programs) 
which are both relocatable anywhere within a computer's RAM 
memory as well as transportable between computer brands and 
models. 

If you want to put LADS at $5000 instead of $2AF8, you 
can relocate it quite simply: Just change line 10 in the Defs 
source code file, the first file in the chain of LADS source code 
files. As written, line 10 reads *= 11000 (equivalent to * = 
$2AF8) and that causes the entire object program to start at 
that address. Changing line 10 to *= $5000 relocates LADS 
when you next assemble it. If you include the pseudo-op .D, 
the object program will be saved to disk under the filename 
you specify. 

In the source code of LADS itself, at the end of this 
chapter, the ".D LADS64" in line 30 will create a version of 
LADS on disk by the name of LADS64 and if you later LOAD 
"LADS64",8,1 it will come into your computer ready to run 
with a SYS 11000. If you change the start address in line 10, 
however, to $5000, and then reassemble the source code, your 
LADS will start with a SYS 20480 (decimal for $5000). 

The numbers generated by the assembly (the object code) 
will be sent to a disk file if you specify that with .D. They will 
be sent into RAM memory if you use the .O pseudo-op. If you 
do turn on storage of object code to memory, LADS will send 
the results of the assembly right into memory during the 
assembly process. This can cause mysterious difficulties unless 
you are careful not to assemble over LADS itself. If you have 
created a version of LADS which starts at $4C00 and you then 
start assembly of some object program at $5000, you'll eat into 
LADS itself. LADS is about 5K long. This, of course, would 


15 



Defs: Equates and Definitions 


cause havoc. Using the .D pseudo-op is safe enough, since the 
new ML program assembles to disk. But the .O pseudo-op will 
send bytes right into RAM during assembly. 

Be aware, too, that LADS builds its label array down from 
the start of its own code. During assembly, the labels and their 
values are stored in a growing list beneath the start address of 
LADS (where you SYS to start the assembler). If you send ob¬ 
ject code into an area of RAM which interferes with this array, 
you'll get lots of UNDEFINED LABEL errors. So be sure you 
know where you're putting object code if you store it in RAM 
during assembly by using the .0 pseudo-op. 

Defs for Transportability 

The only part of LADS which is intensely computer-specific is 
this first file, this first subprogram, called Defs. Here we define 
all the machine-specific equates. (An equate is the same thing 
as a variable definition in BASIC. For example, RAMSTART = 
$2B is a typical equate.) We'll use the Commodore 64 Defs 
(Program 2-1) as our example. The labels (variable names like 
RAMSTART) for all other computers' versions of LADS will 
be the same—only the particular numbers assigned to these 
labels will vary. The addresses of pointers and ROM routines 
vary between computer models. 

Defs contains the definitions of all zero page or ROM ad¬ 
dresses that will be used in the rest of the source code. Once 
again, remember that all zero page equates must be defined at 
the start of the source code (Defs illustrates that rule: Defs is the 
first part of the LADS source code). From lines 60 to 170 we 
define the locations within zero page that we'll be using. In 
line 70 we define the top of the computer's RAM memory. 
We're going to lower it from its usual spot to fall just below 
where LADS itself starts. 

ST is the location where errors in disk file manipulation 
can be detected. Like all of these zero page equates, this loca¬ 
tion varies from computer to computer. LOADFLAG (line 90) 
signals the computer that we want to LOAD a program file 
(rather than VERIFY a previously SAVEd program file). This 
flag will be set in the version of LADS which assembles from 
RAM memory (and LOADs in chained source code programs 
from disk). This RAM-based version of LADS will be created 
later in Chapter 11, the chapter on modifying LADS. 
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Disk I/O Information 

The next five definitions show where information is stored just 
before a disk operation. They tell the operating system where 
in memory a filename is located, how long the name is, the 
file number, the file's secondary address, and the device num¬ 
ber (8 for disk, 4 for printer, in Commodore computers). 

CURPOS always contains the position of the cursor on¬ 
screen (as a number of spaces over from the left of the screen). 
We'll use this to format the screen listings. And the final 
machine-specific zero page definition is RAMSTART. It tells 
LADS where BASIC RAM memory starts. It, too, is used in the 
version of LADS which assembles from RAM. 

Why do we need to define these locations if the operating 
system uses them? Because we're going to use a few of the 
built-in BASIC routines to handle the I/O (Input/Output) op¬ 
erations for us when we need to communicate with a periph¬ 
eral. To OPEN a file, for example, we need to set up several of 
these pointers. To OPEN file #1, we have to put a 1 into ad¬ 
dress $B8 (that's where the file number is held on the Com¬ 
modore 64). But why not just use LDA #1: STA $B8? Why do 
we want to use these labels, these variable names? 

Programming with pure numbers instead of labels pre¬ 
vents transportability. It locks your program into your com¬ 
puter, your model. It's far easier to change this single equate 
in line 120 to $D2 to make the program run on a PET/CBM 
with BASIC 4.0 than it would be to go through the entire 
source code, changing all B8's to D2's. Also, if you buy a 
newer model and they've moved things around in zero page 
(they almost always do), making the adjustments will be 
simple. You just use a map of the new zero page and make a 
few changes in the Defs file. 

LADS Zero 

Because LADS needs to use the valuable Indirect Y addressing 
mode—LDA (12),Y or STA (155),Y—it will want to usurp a 
few of those scarce zero page locations itself. Line 170 defines 
a two-byte temporary register called TEMP which will be used 
in many ways. SA is going to function as a two-byte register 
for the LADS Program Counter which will keep track of 
where we are currently storing object bytes during the assem¬ 
bly process. 

MEMTOP is used in the construction of our label data 
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base. It will always know where the last symbol in our label 
table was stored. All through pass 1 it will be lowering itself, 
making room for new symbols and labels. (This data base will 
later be referenced as we fill in the blanks on pass 2.) 

PARRAY makes that search through the symbol table on pass 
2 easy and fast. It points us through the array. PMEM is used 
as a pointer during assembly from RAM, if you decide to use 
the RAM-based version of LADS described in Chapter 11. The 
uses of all these variables will become clear when we exam¬ 
ine, throughout the book, the techniques which utilize them. 

Borrowing from BASIC 

The next section, lines 190-320, defines the routines within 
BASIC ROM memory that we're going to use. Naturally, these 
are particular to each computer brand and model, so we want 
them up front where they can be easily identified and 
changed. 

BASIC always has an entry point called the warm start ad¬ 
dress, a place where you can jump into it “warmly." But 
there's another entry that's not as gentle. Many BASICs clear 
out RAM memory and radically reset pointers, etc., when you 
first turn on the computer. This is called the cold start entry 
point, and it's as much of a shock to the computer as walking 
outdoors into a winter wind is to you. We don't want this 
shock when we return from LADS to BASIC. Instead, we want 
the RAM memory left alone. After all, LADS is in there and 
possibly an object or source program is in there too. So when 
assembly is finished, we want to go into BASIC via the warm 
start entry point. 

KEYWDS is the address of the first BASIC keyword. We'll 
see why we need this address in the chapter on the Indisk 
subprogram. OUTNUM is a ROM routine which is used to 
print line numbers for the BASIC LIST command. We'll use it 
in a similar way to list the line numbers of our source code. 

OPEN, CHKIN, CHKOUT, CLRCHN, and CLOSE allow 
us to communicate with the disk drives and printers. CHARIN 
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is like BASIC's GET command, PRINT like PRINT. STOPKEY 
sees if you've pressed the STOP or BREAK key on your key¬ 
board. And, last, SCREEN tells LADS where in RAM your 
video memory starts. 

The use of these routines, and the ways that ML pro¬ 
grams can borrow from BASIC, will be covered in detail as 
they appear in the LADS source files. For now, we only need 
to know that they are defined here, in Defs, and can be 
quickly changed to suit different computers, different BASICs. 

There you have it. We'll be explaining these pointers and 
registers as we come upon them in the explication of LADS. 
Now on to the heart of LADS, the section which evaluates all 
the mnemonics (like LDA) and addressing modes and turns 
them into opcodes (like A9) that are the machine's language. 
This next section, Eval, is—by itself—a complete assembler. It 
would stand alone. The rest of the sections of LADS add 
things to this core, things like disk management, arithmetic 
and other pseudo-op routines, label interpretation, screen and 
other output, and a host of other niceties. But Eval is the sun; 
the re§t of the routines are lesser bodies, planets in orbit 
around it. 

Note: Because the Defs subprogram is computer-specific, 
there are five source code listings at the end of this chapter, 
one for each computer. There are also multiple listings in 
Chapter 5 since it deals with computer-specific peripheral 
communication. However, the majority of chapters will 
have only a single complete listing, followed by the few 
modifications required by the different computers, because 
the majority of LADS' source code is identical and entirely 
transportable between 6502-based computers. 
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(F322 FOR UPGRADE/E172 FOR VIC) 










$FFCC; RESTORES DEFAULT I/O 
$FFC3; CLOSE FILE (FILE# IN A) 

= $FFE1; TESTS STOP KEY, RETURNS TO B, 
• $0400; ADDRESS OF 1ST BYTE OF SCREEN 


Defs: Equates and Definitions 
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: = $C474; GO BACK 
= $0200; BASIC'S II 
$E172 










‘ $C09E; START OF KEYWORD TABLE IN BASIC 
?DDCD; PRINTS OUT A (MSB), X (LSB) NUMBER 
ElBE; OPENS A FILE (3 BYTES PAST NORMAL OPEN IN ROM) 
$FFC6; OPENS A CHANNEL FOR READ (FILE# IN X) 


Defs: Equates and Definitions 
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$D2; CURRENT FILE NUMBER FOR OPEN, GET & 

> = $D3; CURRENT SECONDARY ADDRESS FOR OPE1 
$D4; DEVICE NUMBER (8 FOR COMMODORE DISK) 








$0200; BASIC' 
= $B3FF; GO E 


Defs: Equates and Definitions 
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Program 2-5. Defs: Atari 
100 *= $8000 
110 .D D:LADS.OBJ 
120 ST = $01 
130 FNAMELEN = $80 
140 FNAMEPTR = $81 
150 FNUM = $83 
160 FSECDND = $84 
170 FDEV = $85 
180 CURPOS = 85 
190 TEMP = $86 
200 SA = $88 
210 MEMTQP = $8A 
220 PARRAY = $8C 
230 INFILE = $8E 
240 OUTFILE = $8F 
250 PMEM = $ A0 
260 RAMFLAG = $A2 
270 BABUF = $0500 
280 SAVMSC = $58 
290 .FILE D:EVAL.SRC 
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Eval: 

The Main Loop 


Eval is the heart of LADS. It is the main loop. It starts assem¬ 
bly at START (line 30) and ends assembly at FINI (line 4250). 
Throughout Eval, JSRs take us away from the main loop to 
perform various other tasks, but like mailmen, all the other 
routines in the assembler start out from Eval, the post office, 
and they all RTS back to it when their work is done. 

For convenience, references to lines within the source 
code listing at the end of the chapter are boldface inside 
parentheses. Also, to distinguish label names like FINI from 
the names of one of the 13 sections of LADS (a subprogram 
like Eval), we'll put label names in all caps, but just capitalize 
the first letter of the subprograms of the assembler. 

Preliminaries, Preparations 

Most programs have a brief initialization phase, a series of 
steps which have to be taken to fix things up before the real 
action of the program can commence. Variables have to be set 
to zero, files sometimes have to be opened on a disk, defaults 
have to be announced to the program. (Defaults are those 
things a program will do unless you specifically tell it not to. 

A game might default to single-player mode unless you do 
something which tells it that there are two of you playing. 
LADS defaults to hexadecimal numbers for printer or screen 
listings and turns off all its other options.) 

At its START, LADS loads the Accumulator with zero and 
runs down through 48 bytes of registers, flags, and pointers, 
stuffing a zero into each one. These flags are all needed by 
LADS to keep track of such things as which pass it's on, 
whether or not you want a printer listing, or want the results 
of an assembly to POKE into memory, or whatever. This 
initialization fills them all with zero. The label OP is the high¬ 
est of these registers in memory, so we LDY with 48 and DEY 
down through them (see line 30). 

Let's take a minute to briefly review our terminology: 

Register usually refers to the Accumulator (A), or the X or 
Y Register in the 6502 chip. It can also mean a single byte set 
aside to temporarily hold something. It's like a tiny buffer. 

A buffer is a group of continuous bytes used to hold infor- 
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mation temporarily. An input buffer, for example, holds the 
bytes you type in from the keyboard so they can be inter¬ 
preted by BASIC. The bytes stay there until you type RE¬ 
TURN, BASIC stores the information into your program, and 
you type a new line into the input buffer. 

A flag is a byte which is either on or off (contains either 
zero or some number) and signifies a “do it" or “don't do it," 
yes or no, condition. Of course, a single byte could hold a 
number of flags because each bit could be on or off. In fact, 
the Status Register in the 6502 chip does just that—it's only a 
single byte, but its bits are flags tested by CMP and the BNE, 
BEQ-type instructions. When you need a flag, though, it's eas¬ 
ier to just use a whole byte and test it for zero or not-zero. An 
example of a flag in LADS is the PRINTFLAG. If nonzero, the 
assembler sends a printout of the assembly process to a 
printer. If zero, the printer remains silent and still. You set 
(turn on) the print flag with the pseudo-op .P; otherwise, the 
default is no printing. 

A pointer holds a two-byte address. Many times pointers 
are put into zero page so they can be used by Indirect Y 
addressing: LDA ($FB), Y gets the byte from the address held 
in $FB and $FC (seen as a single, two-byte-long number). If 
00FB 00 
00FC 15 

(remember that the 6502 expects these numbers to be back¬ 
ward; this two-byte group means $1500) then LDA ($FB),Y 
will load the A register (the Accumulator) with whatever byte 
is currently in address $1500. We can set up our own pointers. 
If they're not in zero page, they're likely holding some im¬ 
portant address which a program needs to remember. In 
LADS, ARRAYTOP is such a non-zero-page pointer; it tells 
LADS where to start looking through the label table for a 
match. We'll look into this when we get to the subprogram 
Arrays. 

Cleaning the Variables 

At its start LADS must initialize its variables. If we didn't fill 
them with zero, there could be some other number in these 
bytes when we fire up LADS and that could cause unpredict¬ 
able results. Then (80) we get the low byte of the start of 
LADS (using the pseudo-op #<START) and put it in the low 
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byte of MEMTOP (used by the Equate subprogram). We also 
put it into the pointer BASIC uses to show how much RAM 
memory it has available, BMEMTOP (line 70 in Defs). And, fi¬ 
nally, put it in ARRAYTOP. ARRAYTOP will show where the 
LADS' data base of labels starts in memory (it builds down¬ 
ward from the location of LADS). 

Then we take the high byte of START and put it into the 
high bytes of these three pointers. 

Now for the defaults. There is only one. We want listings 
to be in hexadecimal unless we specifically direct the assem¬ 
bler otherwise with the .NH, no hex, pseudo-op. So we put #1 
into the HXFLAG. The rest of the flags are left at zero. If you 
want different defaults, put #1 into some of the other flags. 

For example, if you usually want to watch the results on 
screen during an assembly, just create a new line: 185 STA 
SFLAG. This will cause a screen disassembly every time you 
use LADS. Putting this default into LADS itself merely saves 
you the time of adding the .S pseudo-op if you generally do 
want to watch the assembly onscreen. That does slow up the 
assembler, but with shorter programs, you might not notice 
the difference. 

Where’s the Source File? 

LADS needs to know what you want to assemble. If you're 
using the RAM-based version of LADS (see Chapter 11), 
there's no need to give a filename to LADS; just SYS, and 
LADS will assemble what's already in RAM. But if you're in 
the normal LADS mode, assembling from a disk file, you'll 
have to announce which file. LADS looks at the upper left- 
hand corner of the screen to read the filename (190). If it finds 
a space #32, it checks for another space (310) before giving up. 
This way you can have continuous names like FILENAME as 
well as two-word names like FILE NAME. Whatever it finds 
onscreen, it stores in the buffer FILEN. It also takes care of 
characters which are below the alphabet in the ASCII code by 
adding 64 to them if they fall below 32 (240). The Atari ver¬ 
sion asks for the filename from the keyboard in the manner of 
a BASIC INPUT command. 

When the filename is stored in the buffer, we JSR to 
Openl, the subprogram which handles all I/O, all commu¬ 
nication with peripherals. In this case, communication will be 
with the disk drive. 
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After the file is opened for reading, we JSR to another 
subprogram, Getsa, the get-start-address routine. It just looks 
for *= (the start address pseudo-op) and, finding it, returns to 
Eval where the number following that symbol will be eval¬ 
uated. If it doesn't find a * = , that can only mean two things. 
Either there is no program on the disk by the name you put 
onscreen or LADS did find the program, but no starting ad¬ 
dress was given as the first item in the source code. Both of 
these situations are capable of driving LADS insane, so Getsa 
aborts back to the safety of BASIC after leaving you a message 
onscreen. 

This SMORE routine (370) will be used again when we've 
completed the first pass of the assembly process. The first pass 
goes through the entire source file, storing all the names of the 
labels and their numeric values into an array. 

When we finish making this collection of labels, our label 
array, we've got to make a second pass, filling in the opcodes 
and replacing those labels with numbers. It's here, at SMORE, 
that we jump to start the second pass. 

A zero is given to ENDFLAG to keep the assembler run¬ 
ning. If the ENDFLAG is left up, is not zero, the assembler as¬ 
sumes it has finished its job and stops. 

The initialization is completed with a JSR to the sub¬ 
program Indisk which pulls in the number you wrote as the 
starting address following * =. This number is left in LADS' 
main input buffer called LABEL. Before dealing with this num¬ 
ber, though, we check to see if we're on the first pass (410) 
and, if so, print the word LADS onscreen after a JSR PRNTCR 
which prints a carriage return. Routines beginning with PRNT 
like PRNTSPACE and PRNTLINE are all grouped together in 
the subprogram Findmn. They're used by most of the sub¬ 
programs and print various things to the printer or screen. 

Now we need to put the starting address into the pointer 
SA which always holds the current target for any of our 
assembled code during execution. If the HEXFLAG is up, that 
means you wrote something like *= $5000 and hex numbers 
are translated by the subprogram Indisk before it RTSs back to 
Eval. Decimal numbers like *= 8000, however, are not trans¬ 
lated into the two-byte integers that ML (machine language) 
works with, so we need to send decimal numbers to Valdec 
(another subprogram) to be turned into ML integers (610). The 
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pointer called TEMP is made to point to LABEL so Valdec will 
know where to look for the number. 

It's important to realize that numbers coming in from the 
disk or from RAM memory are in ASCII code, as characters, 
not true integer numbers. That is, the characters in a number 
like 5000 will come into the LABEL buffer as they appear in 
RAM or on a disk file. 5000 would be (in hexadecimal nota¬ 
tion) 35 30 30 30; these are the character codes for 5-0-0-0. It's 
Valdec's job to transform this into 00 50, an ML integer. When 
we get to Valdec, we'll see just how this is done. It's a useful 
technique to learn since any numbers input from a keyboard 
will also be in this ASCII form and will need to be massaged a 
bit before they'll make sense to ML. 

Remembering the Start Address 

When, at STAR1, we finally have an ML integer in the little 
two-byte variable called RESULT, we can transfer the integer 
to SA. And we put the integer into the variable TA, too, so 
that we'll have a permanent record of the starting address. SA 
will be dynamic; it will be changing throughout assembly to 
keep track of the current assembly address. It will be LADS' 
Program Counter. TA will always remember the original start¬ 
ing address. 

By this time you might be thinking that all this is hard 
to follow. TA and RESULT and LABEL don't mean much at 
this point. We've plunged into Eval, the most condensed, the 
most intensive, section of the entire program. As the main 
loop, Eval will send tasks to be accomplished to many sub¬ 
routines, in subprograms which we've not yet examined. It's 
like landing in a strange city without a map. You see street 
signs, but they mean nothing to you yet. But this is one of the 
best ways to learn if you can be patient and ignore the tem¬ 
porary gaps in your knowledge and the momentary sensations 
of confusion. 

We're gradually building a vocabulary and mapping out 
some of the pathways which make up the language LADS and 
the ways the ML works. The subprograms are, by and large, 
easier to follow. They're more self-contained. But bear with 
this tour through Eval. It makes what follows easier to grasp 
and offers a foundation—however unconscious at this point— 
for a deeper appreciation of the ways that ML does its magic. 
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The Main Routine 

Every line of source code which LADS examines begins with 
STARTLINE (690). The ML between STARTLINE and P (5520) 
is, in effect, an assembler. The rest of the routines and sub¬ 
programs deal with the niceties, the auxiliary efforts of the 
assembler—pseudo-ops, built-in arithmetic routines, I/O, 
printout formatting, and so forth. 

In fact, this section of LADS is based on the BASIC 
assembler, the Simple Assembler, from my previous book. Ma¬ 
chine Language for Beginners. If you want to see how a large 
BASIC program can be translated into ML, you might want to 
compare the Simple Assembler to the rest of Eval. There are 
some comments within the listing of LADS' source code which 
refer to the BASIC lines within the Simple Assembler (see 
lines 3270 and 3410 for examples), and a number of the labels, 
starting at 4670, also refer to their BASIC line number equiva¬ 
lents in the Simple Assembler. L680 is a label to LADS, but is 
also a reference to an equivalent line, 680, in the BASIC of the 
Simple Assembler. 

It's LADS' job to take each line in the source code and 
translate it into runnable ML object code. LADS would take 
the source line 10 LDA #15 and change the LDA into 169 and 
leave the 15 as 15. The value 169 is the ML opcode for the 
Immediate addressing mode of LoaDing the Accumulator. 

Then LADS would send these two bytes of object code, 169 
15, to any of four places depending on what destinations you 
had specified as pseudo-ops in the source code. The .D 
pseudo-op would send 169 15 to a disk file, .P to the printer, 

.S to the screen, and .O directly into RAM memory. 

When LADS first looks at at each source code line, 
STARTLINE checks the ENDFLAG to be sure it's safe to con¬ 
tinue. If ENDFLAG is zero, we BEQ to the JSR to Indisk. 
(Otherwise, the program would go down to FINI and close up 
shop, its work finished.) 

Indisk is the second largest subprogram, and LADS will 
be gone from Eval a long time by the computer's sense of 
time. For us, this detour happens in a flash, and a lot happens. 
Indisk can even JSR into other subprograms, but we'll see that 
in a later chapter. All we need to realize now is that each 
source line needs to be pulled onto our examination desk so 
LADS can pick it apart and know what to assemble. 
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Our examination desk is the buffer called LABEL. First a 
line of source code is laid out on the desk. To prepare for the 
exam, we put down the EXPRESSF(lag) and the BUFLAG, al¬ 
though they might be raised again during the evaluation to 
come. EXPRESSF tells LADS whether the expression following 
a mnemonic like LDA is a label or a number. It signals the dif¬ 
ference between LDA SPRITE and LDA 15. BUFLAG tells 
whether or not there is a REM-like comment attached to the 
line under examination. If there is a comment, we'll want the 
assembler to ignore the remarks, but the screen or printer 
should nevertheless display them. 

Now, as we often will, we check PASS (760) to see if it's 
the first or second time through the source code. On the first 
pass, we're not going to print things to a printer or the screen, 
so we'd jump to MOE4 and ignore the next series of printouts. 

But if it's the second pass, we check the SFLAG, the 
screen flag, to find out if we should print to the screen. If the 
answer is yes, we print a line number, a space, the SA (current 
address), and another space. Don't worry about LOCFLAG 
just yet. 

Now we want to know if there's any math to do. 
PLUSFLAG is up when the line contains something like this: 
LDA SCREEN+ 5. If it does, we briefly detour to the sub¬ 
program Math to replace SCREEN+ 5 with the correct, cal¬ 
culated number. 

The Inner Core 

Now we're at the true center, the hot core, of LADS: Line 900 
is the pivot around which the entire structure revolves. This 
JMP to Findmn accomplishes several important things and sets 
up the correct pathways for the assembler to follow in the fu¬ 
ture. Findmn finds a mnemonic. Say LADS is examining this 
line: 

10 LDA 15 

After Findmn does its job and JMPs back to Eval, there would 
be a 1 in the TP register (it's like a BASIC variable, called TP 
for "type”). And there would be a 161 in the OP, for opcode, 
register. 

That 161 is not the number we'll want POKEd into mem¬ 
ory. 161 is the right number for the LDA (something,X) 
addressing mode, but it's wrong for the other modes, includ- 
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ing LDA 15. Nevertheless, any LDA will first get a 161, the 
base opcode. It's the lowest possible opcode for an LDA; the 
other LDA addressing modes can be calculated by adding to 
161. LDA 15 is Zero Page addressing and its opcode is 165. 
Eval's main job is to start off with the lowest, the base opcode 
for a particular mnemonic like LDA, and then make adjust¬ 
ments to it when the correct addressing mode is detected. Eval 
establishes the addressing mode when it examines the line 
and looks for things like the # symbol and so forth. As we'll 
see, this examination will modify the OP number until the 
correct opcode is calculated. 

For now, though, it's enough that we return from Findmn 
with a base opcode number, something reliable to work from, 
stored in the variable OP. By the way, Findmn gets these 
numbers, TP and OP, from a table in the subprogram Tables. 
We'll look at it at the very end of our exploration of LADS in 
Chapter 9. Tables is where all the constants are stored. 

When No Match Is Found 

Sometimes Findmn won't find a match when it looks through 
the table of mnemonics in the subprogram Tables. This means 
that the first word in the line under examination was not a 
mnemonic. If this happens, Findmn returns (via a JMP) back 
into Eval where labels are analyzed. Eval then knows that this 
first word isn't one of the 6502 commands. Instead, it must be 
a label. 

Labels in this first position in a line can be of two types: 
address labels and equate labels. An address label identifies a 
location within the program that will be the target for 
branches, jumps, JSR, etc. It's like giving names to subroutines 
so you could later JSR PRINTROUTINE. Here's an example: 
100 START LDA #0 

After the assembler finishes assembling this, we'll have: 
100 3A00 A9 00 START LDA #0 

The OP 161 has been changed to 169 (the hex number A9 
in the example above), and we'll see how that was arrived at 
presently. But START has had no visible effect. It's just listed 
there, but doesn't affect the A9 or 00. START is a place 
marker. It hasn't been ignored. During the first pass, LADS 
stored START in an array along with the 3A00 address. That's 
why START can be called an address label. This is very much 


36 




Eval: The Main Loop 


the way that BASIC reads a variable name, sticks it in an ar¬ 
ray, and puts the value of the variable up there with the 
name. 

On pass 2, when all these labels are needed, the correct 
address will be there, waiting in the array. If LADS comes 
across a JSR START or a BEQ START, it will be able to search 
the array and replace the word START with the right number, 
the address. 

The other possible kind of label is the equate label. It 
looks like this: 

1100 SCREEN = $0400 

It, too, is stored during the first pass and looked up dur¬ 
ing the second pass. But the equals sign shows that we should 
remember the value on the other side of the = symbol, not 
the address of the location of the label. In this example, when¬ 
ever we want to store something onscreen, we don't need to 
calculate the correct address. $0400 is the first byte in screen 
memory (on the Commodore 64 in this example). So we can 
just STA SCREEN to put whatever is in A into the upper left- 
hand corner of the screen. Or STA SCREEN+ 200, or STA 
SCREEN+ 400, or whatever. (Adding numbers to SCREEN 
will, in this case, position our A lower on the screen.) 

It's here that we decide whether we're dealing with one of 
the labels or with an ordinary mnemonic. If we JMP back from 
Findmn to EVAR (920), the first thing on the source code line 
was a mnemonic. If we JMP back from Findmn to EQLABEL, 
it wasn't a mnemonic (hence it's a label). EVAR evaluates the 
argument, the 15 in LDA 15. EQLABEL evaluates the other 
kind of argument, the label SPRITE in LDA SPRITE. 

Simple and Other Types 

Some of the mnemonics are quite straightforward. They've 
got no argument at all: INY, ROL, CLC, DEC, BRK, RTS, etc. 
There's no argument to figure out, and all of these self- 
contained instructions have the same addressing mode, Im¬ 
plied addressing. Fully 25 of the 56 mnemonics are of this type. 
We've called them type 0 (see the chapter on the Tables sub¬ 
program for an explanation of the types), and so Findmn puts 
a 0 into the TP variable. Our first step in the evaluation of any 
argument (920) is to check the TP, and if it's 0, go to the type 
1 (meaning only one byte, the opcode itself) area. There, the 
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single byte will be POKEd and printed if you've requested that 
with your pseudo-ops. And then we can go on to fetch a new 
line. 

If it's a more complicated addressing mode, though, we 
continue evaluating, comparing it to type 3 (940). If you want, 
you can look up the mnemonics and the parallel types and 
ops tables in the Tables subprogram. Type 3's are the bit-mov¬ 
ing instructions ROL, LSR, ROR, and LSR. They have a pat¬ 
tern of possible addressing modes in common. (It's this 
common pattern of addressing modes which underlies these 
types. They share the same potential addressing modes and 
can be evaluated and adjusted as a category rather than 
individually.) 

In any case, we turn them into type 1 and then look at 
the fourth position in the storage buffer LABEL. If we could 
peer into this buffer, we might see either: 

ASL 

or 

ASL 1500 

That bare ASL is not an implied address like INY and 
CLC and the rest of those self-contained instructions we dis¬ 
cussed above. These bit-moving instructions (ASL, ROR, etc.) 
are just like type 1 (LDA, etc.) with this single exception: They 
can have a special addressing mode all their own called Accu¬ 
mulator addressing. It's a rare one. In this mode, ASL would 
Arithmetic-Shift-Left the number in A, the Accumulator. 

The point to grasp here is that, rare as a nude ASL is, 
we've got to include it in the assembler. So we check to see if 
there is a zero in the fourth position in our buffer, LDA LA¬ 
BEL+3. A zero means end-of-line. So we can detect from a 
zero that there is no argument and, hence, this is a case of 
Accumulator addressing. If it is, we need to add 8 to the base 
opcode for these bit-movers and then jump to the type 1 exit. 
If it isn't, we've already turned it into a type 1 (970) and from 
here on, we'll treat it as a member of that family. In effect, 
type l's can have several addressing modes, so we must eval¬ 
uate the mode. We go to EVGO. 

Fat Y Loops 

Before entering most ML loops, you'll first LDY #0. Y often 
functions as a counter, so it's set to zero, and then INY occurs 
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at the end of the loop. But some loops require that we INY at 
the start or at least early within the loop. In such cases, we 
must LDY #255 before entering the loop. The first event 
within the loop is an INY, so in effect, Y becomes 0 right off 
the bat. When you increment 255, you get a zero. 

EQLABEL is where we determine what kind of label 
we're dealing with. On the first pass, we don't care. All labels 
must be stored in our label table array for later reference on 
pass 2. On pass 2, though, we must go through the test in 
EVX1 (1090). And it's one of those fat Y loops that start off 
with a bloated Y Register. We put 255 into Y at the start. 

We load the first character in the LABEL buffer. If it's zero 
(end of the line), there wasn't any argument. There should 
have been. This is a mistake. By this time, there has to be an 
argument. We've already eliminated the only addressing types 
that have no argument: Implied (type 0) and Accumulator (a 
variant of type 3). If there's no argument, the source code is 
defective. There should be an argument. We've got to print an 
error message. 

NOAR is tucked away at line 520 of the Equate sub¬ 
program. We'll get to it later. It just prints a “no argument" 
error message. But we should clear up the little mystery 
surrounding the bounce we just took. We BEQ GONOAR 
(1110) only to JSR NOAR (1320). Why? This is one of those 
springboards we discussed in Chapter 1. 

The B instructions, the branchers like BEQ, can move us 
only 127 bytes in either direction, forward or backward, from 
their location. This is sometimes not far enough. LADS will 
alert you to this if you should try to branch further than you 
can. It will print BRANCH OUT OF RANGE and ring the bell. 
The easiest solution to this problem is to simply have the 
branch go to a nearby JMP or JSR. They can fly off to any ad¬ 
dress in the computer. Have them act as springboards, bounc¬ 
ing you to your actual target. 

The alternative is to move your target closer to the 
branch. The target is probably a subroutine. But moving a sub¬ 
routine is often a lot more trouble than simply creating a 
springboard. 

Back to the evaluation (1120). If there is an argument, we 
move it up to another buffer called FILEN. Then we check for 
the blank character, 32, before leaving this loop. The label 
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name gets moved up to FILEN for further analysis. Then we 
INY and look at the next character. 

Which Kind of Label? 

If the first thing after a blank character is =, we've got an 
equate label like: 

100 NAME = $500 

If it is an equate label, we ignore it because we're on the 
second pass here. Line 330 sends us over this section if it's the 
first pass. There's no need to pay any attention to equate la¬ 
bels on the second pass, so we jump to INLINE, the prepara¬ 
tions for getting a new line to evaluate. 

But it might be the other type of label, an address label 

like: 

100 START LDA #15 

On pass 2 we can also ignore START, the label part of this 
line. Both types of labels have already been safely stored in 
our array during pass 1. Nevertheless, following the address- 
type label is some code we cannot ignore. On pass 2 LADS 
must assemble that LDA #15. 

NOTEQ (not equate type) moves the address label up to a 
buffer called FILEN while at the same time moving the LDA 
#15 over to the start of the LABEL buffer. It's doing two 
things at once. This is how these buffers look before NOTEQ 
(1180-1200): 

LABEL START LDA #1500000000000 
FILEN 000000000000000000000000 

and after NOTEQ: 

LABEL LDA #150A #1500000000000 
FILEN STARTOOOOOOOOOOOOOOOOOOO 

START is up at FILEN and can be printed out later for a 
listing. But what good is that mess in the LABEL buffer? It will 
work perfectly well because that 0 in the eighth position is the 
delimiter. It tells LADS to ignore any random characters 
following it. Remember that these numbers are stored in mem¬ 
ory as ASCII code, not as literal numbers. 15 would be stored 
as 49 53. 150 (the number 150) would be stored as 49 53 48. 
But a different kind of 150, where that final 0 is a true zero, a 
delimiter, would be stored as 49 53 0. So when we go to look 
at and assemble the information in LABEL, LADS will only 
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work with LDA #15 and ignore the OA #150000, etc., the 
remnants of the old line. All is now ready for the assembler to 
take a look at a mnemonic and its argument, so we JMP to 
MOE4 (1310). If this had been pass 1, we would have by¬ 
passed all this and leapt from 1070 right down to 1330, where 
we go to the subprogram Equate, which stores labels and their 
values in the label table array. But both pass 1 and pass 2 
must continue to work out the addressing modes by going to 
MOE4. Why should we need to worry about addressing 
modes on pass 1 since LADS doesn't POKE anything into 
memory or save anything to disk during pass 1? 

LADS must keep an accurate PC (Program Counter) dur¬ 
ing pass 1 to know what value to assign to address type la¬ 
bels. Otherwise, the address labels would be inaccurate: 

10 START INC 15 
20 LDA 15 
30 BEQ FINISH 
40 JMP START 
50 FINISH RTS 

Notice that both INC 15 and LDA 15 are Zero Page 
addressing. They occupy two bytes in memory. But they could 
have been Absolute (LDA 1500) addressing, or other modes 
which use up three bytes. LADS has no way of knowing, by 
reading LDA or INC alone, whether to raise the program 
counter by two or by three. All this wouldn't matter much ex¬ 
cept for that label FINISH in line 50. It has to be assigned its 
proper address during pass 1 and stored in the array. That 
means LADS needs to know exactly how many bytes it is 
from START to FINISH. 

Consequently, LADS has to check out the arguments of 
INC and LDA to see whether they're addressing modes using 
up two or three bytes. This Program Counter is kept in a vari¬ 
able in LADS called SA. It's constantly changing during both 
passes of the assembly, but it is used during pass 1 to assign 
numbers to address labels like START and FINISH. 

We'll deal with the next routine, EVEXLAB (1360), shortly. 
Let's go first to MOE4 and see how LADS analyzes 
arguments. 

We’ve Been Here Before 

Recognize MOE4 (900)? We already discussed it. It JSRs to 
FINDMN and JMPs back to EVAR (920) having recognized a 
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6502 mnemonic or JMPs to evaluate a label if it didn't rec¬ 
ognize a mnemonic. In our example, it will find LDA #15 this 
time, JMP to EVAR, and end up going to EVGO (from 950). 

Here at EVGO, LADS has to decide whether it's dealing 
with a normal numeric argument like #15 or an expression la¬ 
bel, a word like SOUND. Imagine that we'd started off by de¬ 
fining the label SOUND: 

10 SOUND = 15 

When we later wanted to indicate 15, we could substitute 
the word (LDA #SOUND) for the number (LDA #15). 

EVGO distinguishes labels from numbers by using the 
ASCII code. In this code, letters of the alphabet have a nu¬ 
meric value 65 (the letter A) and go up from there. Thus, if 
the character in the fourth position (see line 1490) is less than 
65, if it triggers a BCC, we don't raise the EXPRESSF(lag). 

That flag indicates a nonnumeric expression. In other words, 
the expression has a letter of the alphabet so it must be a la¬ 
bel. Similarly, EVM02A raises the Y offset and tests the fifth 
character. If it's a zero, we've got a single-letter label, like P 
(1540). Meanwhile, we're moving the label up to a buffer 
called BUFFER. And, again, we check for a character with a 
value lower than 65. 

EVM02 (1600) continues to move the label from one 
buffer (LABEL) to another (BUFFER). It only stops when it 
finds a zero indicating the end of the line. Note that both 
number expressions (arguments) like #15 as well as label ex¬ 
pressions like #STOOL are moved from the LABEL buffer up 
to the BUFFER buffer. The only distinction between them is 
signaled by the raising of the EXPRESSF(lag) when there's a 
label rather than a number. For numbers, EXPRESS stays 
down, stays 0. 

Hex Numbers Are Already Evaluated 
EVM03 (1660) puts the label's size, the number of characters 
in the label, into the variable ARGSIZE and checks to see if 
the HEXFLAG is up. The HEXFLAG is sent up in the sub¬ 
program Indisk if a $ symbol is noticed as a line is streaming 
into LADS. So if HEXFLAG is BNE, not equal to zero, it's up 
and we can jump right down to L340, which starts to figure 
out the addressing mode. If the EXPRESSF is up, that means a 
word label, not a number, so we have to go to EVEXLAB to 
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get the number to substitute for the label. Otherwise, we've 
got a decimal number to work with as our argument (1730). 

The whole function of lines 1730-1840 is to have the 
variable TEMP pointing to the first ASCII number in the label. 
That's why we keep INCrementing TEMP until we point to a 
character that is not BCC, less than the 0 ASCII character (48) 
in line 1830. Then we have to test for the ( left parenthesis or 
, comma character. If it is one of them, it can put in a true 
zero as a delimiter. 

When the number is properly set up, it is analyzed by the 
Valdec subprogram, which turns this ASCII string of numbers 
into an ordinary ML two-byte integer. 

If, however, we were sent to EVEXFLAG (from 1710), it 
checks for something less than an alphabetic character (such 
as a ( or a # symbol). When it locates the first alphabetic 
character, it stores it into the variable WORK and JSRs off to 
the subprogram Array where the stored labels will be looked 
through. Then it joins up again with the numeric expressions 
by going to L340 for addressing mode evaluation. 

How Is It Addressed? 

This is the final job the assembler must perform—distinguish¬ 
ing between Immediate (LDA #15), Absolute (LDA 1500), 

Zero Page (LDA 15), Indirect Y (LDA (15),Y), and the other 
addressing modes. Recall that we've already eliminated nearly 
half the possibilities by previously handling type 0, the self- 
contained, implied ones like CLC and INY. What's left is to 
check for # and ( symbols and to see how big the argument is. 
That tells us if our argument (the expression) calls for Zero 
Page addressing or not. 

First off, LADS checks for the # character (2130) and, 
finding one, goes to the IMMED routine to handle Immediate 
addressing. Next it looks for the ( character. Finding one of 
those, it goes off to the INDIR routine to deal with Indirect 
addressing. 

Failing to find either of these symbols, it loads in the type 
variable, TP, and looks to see if it's an 8. All the B instruc¬ 
tions, the branches like BNE and BCC, are grouped together as 
type 8. Finding a type 8, LADS goes to the REL subroutine to 
handle Relative addressing. 

From here (line 2220) to the end of Eval, there will, from 
time to time, be adjustments made to the OP variable which 
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are neither easy to explain nor easy to immediately under¬ 
stand. They're based on the logic of the interrelationships be¬ 
tween the various addressing modes. For example, if we've 
reached this point (2220) without branching to one of the 
routines like IMMED, INDIR, or REL, we now need to add 8 
to the opcode value. Why? It just works that way. If you're 
truly interested, study the table of opcodes and you'll begin to 
notice certain similarities between the opcode for LDA ab¬ 
solute and INC absolute, etc. It's not necessary to work all this 
out. For a detailed discussion of the logic of these adjustments 
to OP, see the explanation of the Tables subprogram in Chap¬ 
ter 9. 

At any rate, INDIR looks at the character of the argument 
in BUFFER and sees if it's a ) symbol. If not, and it's type 1, 
we add 16 to OP. If we have a type 6, we know we've got an 
indirect JMP, so we go there. Otherwise, we go to TWOS, 
where two-byte addressing modes, like LDA (15),Y, are 
handled. 

JIMMED (2420) is one of those springboards to handle a 
BRANCH TOO FAR for an unassisted B instruction with its 
127-byte reach. 

The Hardest Part of LADS 

REL handles the B group. This was the hardest part of LADS 
for me to write. For some reason, I kept hoping for a simple 
way to test and translate forward and backward branches. No 
simple way presented itself. There may be a more clever solu¬ 
tion than the one you'll see described below, but I couldn't find 
it and had to go on. 

REL first checks PASS. On pass 1, we simply go directly to 
TWOS. On pass 2, though, we look at RESULT. RESULT is a 
two-byte variable which holds the integer form of all argu¬ 
ments—labels, hex, or straight decimal. They're all left in RE¬ 
SULT by the various subprograms, Array, Indisk, and Valdec, 
which translate labels, hex ASCII, and decimal ASCII. These 
three possible original forms of the arguments are translated 
into two-byte integers that can be POKEd into memory or 
saved on disk as parts of an ML program. 

If we're on pass 2, we look at RESULT and now calculate 
the correct argument for a branch instruction. It requires that 
LADS first determine whether we're branching backward or 
forward in memory. It does this by subtracting SA (the Program 
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Counter, the current address, the address of the B instruction to 
which its argument will be relative). It subtracts SA from RE¬ 
SULT, the argument of the B instruction: 


100 1000 A0 00 START 

110 1002 C8 LOOP 

120 1003 F0 03 

130 1005 4C 02 10 

140 1008 60 END 


LDY #0 
INY 

BEQ END 
JMPLOOP 
RTS 


The target, END, of the BEQ above is address 1008. The 
location of the PC at the BEQ is 1003. MREL (2470) first sub¬ 
tracts the PC in variable SA from the target's address. Remem¬ 
ber that RESULT holds the correct integer after the Array 
subprogram looked through LADS' array and found the label 
END. So 1008 minus 1003 gives 5. 


BPL and BMI 

BCS tests the result of the subtraction—the carry is still set if 
the target is higher than SA and, consequently, we've got a 
branch forward. We BCS FOR. Otherwise, it's an attempt to 
branch backward in memory, and we test the high-byte result 
of the subtraction (the number in the accumulator) against 
$FF. That high byte must equal $FF, or we've branched too far 
and we go to the error-message printout routine (2570). Then 
we check the low-byte result of the subtraction (which was 
pushed on the stack temporarily in line 2500) to see if it's a 
correct value. The PLA (2580) will set the N flag in the Status 
Register if the number is greater than 127. We want it to be, 
since this is a backward branch. If this flag is not set, we BPL 
to the error message. Otherwise, we jump to the concluding 
routine, setting up a correct branch. 

The FOR routine handles forward branches in a similar 
way, going to the error routine if the high byte is not zero 
(2610) or if the low byte has the seventh bit set (proving it's 
greater than 127, an incorrect forward branch). 

Let's pause for a minute to see what BPL and BMI do for 
us in this test. In binary, $80 looks like this: 10000000. We 
don't care about the bits in the positions where the zeros are. 
We're only interested in the leftmost bit, the so-called seventh 
bit. Note, too, that PLA affects the N and Z flags in the Status 
Register. 

After a PLA of 10000000, BPL would not branch any¬ 
where, but BMI would. It would mean that the seventh bit is 
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set, the “minus sign" in signed arithmetic was found. The sign 
in signed arithmetic is held in the seventh bit. 1XXXXXXX 
would signify a negative number, OXXXXXXX a positive num¬ 
ber. (There's a connection here with the fact that forward 
branch arguments can range from $00 to $7F, and backward 
branches from $FF down to $80.) 

Now some people will point out that there are eight bits in 
a byte, and we keep referring to the seventh bit when we're 
talking about the eighth. Recall that, in computing, much 
counting begins with the zeroth bit. A byte can hold only the 
numbers 0-255. The lowest number it can hold is a zero. But 
that still means that there are 256 possibilities, 256 possible 
states for a byte: 1-255 plus 0. 


Signed Arithmetic Branching 

If all this seems an unnecessary detour into messy detail, con¬ 
sider how Relative addressing uses signed arithmetic to cal¬ 
culate where it should branch. When the 6502 chip comes 
upon one of the B branch instructions like BNE, it looks at the 
argument in a unique way. If the number is higher than 127, it 
knows it must go backward. If lower or equal, it must go for¬ 
ward. That's why you cannot branch further than 128 back¬ 
ward or 127 forward. The argument can't use the entire byte 
to hold a number—the seventh bit must be reserved to hold 
the plus or minus sign. Remember, if the seventh bit is set, it 
means minus. If clear, it means plus. BPL (Branch if PLus) is 
triggered when the seventh bit is clear. BMI responds to a set 
(1) seventh bit. 


Take a look at the assembly in the example above. Line 
120 shows that BEQ END became the opcode F0 and the argu¬ 
ment is 03. 03 will take us to END because all branches are cal¬ 
culated from the address of the mnemonic following the branch 
instruction. Count three from address 1005. You hit END. 

A branch backward, too, counts backward from the address 
of the mnemonic following the B instruction. All branches count 
from their own PC location plus 2. Look at a branch backward: 


40 1000 A0 00 
50 1002 C8 
60 1003 DO FD 
70 1005 60 


START LDY #0 

LOOP INY 

BNE LOOP 
END RTS 


Here line 60 is branch backward, but the argument, $FD, is 
pretty strange. $FD looks like this in binary: 11111101. So the 
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seventh bit is set signifying minus, a backward branch. $FD is 
253 decimal. $FF would be —1, $FE would be —2, and $FD is 
— 3. From address 1005, —3 lands us at 1002, LOOP, where 
we want to land. Luckily, we needn't perform these calcula¬ 
tions. LADS will handle all branch arguments. But you might 
want to use BPL/BMI branches as well as signed arithmetic in 
your ML programming. It's sometimes worth knowing the de¬ 
tails of how these things are handled by the microprocessor. 

One final adjustment needs to be made before LADS can 
POKE in the correct argument for branches. This adjustment 
takes place at RELM, where both forward and backward 
branches end up, unless they were found to be out of range. 

After the low byte of SA was subtracted from the low 
byte of RESULT (2500), we pushed it onto the stack with PHA. 
That's sometimes a convenient place to stuff something you 
want to set aside for a minute while you perform other 
calculations. You could STA A or STA TEMP or put it in other 
temporary holding variables, but PHA is safe as long as you 
remember to PLA to leave the stack clean. You don't want to 
keep PHAing, or your program will soon fill up the stack, 
resulting in an OVERFLOW error and a machine-wide col¬ 
lapse. The 6502 chip won't ignite, the CRT screen won't melt, 
but the program will grind to a halt. 

When we have a BRANCH OUT OF RANGE error we 
are going to go down to the DOBERR routine at line 5800, but 
we do need to PLA in lines 2560 and 2620 to keep the stack 
clean. 

If there is no error, we've saved the result of the subtrac¬ 
tion of the low bytes (it sits in the low byte of the RESULT 
variable). That's the number we really care about anyway. A 
single byte is all that can be used as a branch argument. 

To make it a correct branch argument, we've got to sub¬ 
tract 2 from it. This, you recall, is because all branches are cal¬ 
culated from the address of the mnemonic which comes just 
after the branch instruction. Counting starts from the B instruc¬ 
tion's address, plus two. Subtracting two will fix this up for 
branches in either direction. 

Further Evaluation 

We've seen how LADS calculates the branch addresses. At this 
point in the source code, we come upon a continuation of 
evaluations of other addressing modes. EVM05 (2740) gets the 
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size of the argument in order to enable us to look at the charac¬ 
ter second from the end: LDA (ZERO),Y has a comma in this 
second-from-the-end position. INX NAME does not. By now, 
the variety of possible addressing modes has been somewhat 
narrowed. 

If we did find a comma in that second-from-last position, 
that means the label ends in ,X or ,Y and we go to XYTYPE to 
deal with it. Otherwise, we check to see if it's a JMP (opcode 
76). MEV eliminates two other possible modes, both Zero Page, 
sending LADS to the TWOS, two-byte, line-ending events. 

We're headed for TWOS by now in any case, but we need 
to once again adjust the value of the opcode in OP if the type 
in TP isn't 6 or 4. 

TWOS, like TP1 (for one-byte-long instructions) and 
THREES, is where LADS goes after an addressing mode has 
been determined. The opcode has been correctly adjusted and 
waits in OP. The argument waits in RESULT. TP1, TWOS, and 
THREES are quite similar. TP1 doesn't have an argument, so it 
just JSRs to a subroutine within the subprogram Printops. 
There, the bytes are POKEd into memory or to disk and 
PRINTed to screen or printer. Then LADS JMPs to INLINE to 
prepare for the next line of code. 

TWOS (2970) and THREES (3400) also JSR to that same 
subroutine in Printops (which POKEs, SAVEs, or PRINTS an 
opcode), and then TWOS and THREES JSR to PRINT2 or 
PRINT3 as appropriate to store or print the byte or bytes of 
the argument. 

Immediate addressing (LDA #12) is a variation of TWOS, 
but it first must make one of those adjustments to the value of 
the opcode before JUMPing to TWOs (see line 950). 

THREES also requires some opcode adjustments before 
storing or printing its bytes; PREPTHREES (3240-3390) accom¬ 
plishes that. 

The JUMP subroutine (3010) handles the mnemonic JMP. 
It's a special case because it can have a strange addressing 
mode called Indirect Jump. JUMP tests for this and makes the 
necessary adjustment to the opcode if it finds the ASCII code 
for a parenthesis, indicating an Indirect Jump, for example JMP 
($5000). 

IMMED handles the # type. Immediate addressing. It first 
looks to see if the #" pseudo-op is in effect (3100) and, if so, 
stores the argument directly from the buffer. Then IMMED ad- 


48 




Eval: The Main Loop 


justs the base opcode (in the OP variable) if necessary, and be¬ 
haves like any other two-byte addressing mode, jumping to 
TWOS. 

Preparations for a New Line 

We come now to the cleanup routine, INLINE (3440). Its pri¬ 
mary job is to handle the correct formatting of the printout of 
the source code. By the time LADS gets to INLINE, it's already 
printed a line's number, the address of the PC (the location of 
the code), and the object code bytes themselves: 
line # /addr /bytes of object code 
40 1000 A0 00 

However, there are still three items to print: an address 
label (if any), the source code, and remarks (if any). To make 
listings easy to read, address labels should be set off by them¬ 
selves, and source code should line up vertically on a printed 
page or screen: 

line # /addr /bytes / addr label /source / comments 
40 1000 A0 00 START LDY #0 ; begin here (entry) 

Since each column should line up correctly, we're going to 
need to construct the ML equivalent of BASIC's TAB function. 
Those first three items—line number, address, and object code 
bytes—can take care of themselves. But any address labels must 
always be in the same position on a line. And since there can 
be one, two, or three object code bytes, the address labels 
wouldn't line up if we just printed a couple of spaces after the 
final object byte. 

TAB 

The first thing INLINE does is to check if we're on the first 
pass. Nothing gets printed out on pass 1, so we jump over the 
entire INLINE routine. If it's pass 2, we look to see if the screen 
flag, SFLAG, is up (3470). If it isn't, we again jump past 
INLINE. 

Then the LOCFLAG is checked. It is up when there is a PC 
address label (like the label START in the example above). If it's 
up, we use something from BASIC: the cursor position byte. 
We've been using BASIC's PRINT routine all along. One of the 
advantages of this is that PRINT keeps a record in zero page of 
the current screen position; we could just LDA #20:STA 
CURPOS, and the next printout would be at position 20. 
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Tab to Printer 

Things are more complicated, though, since LADS has an op¬ 
tion to print listings to a printer as well as to the screen. We 
cannot use the same technique with a printer. 

To find out how many blanks to print to the printer, it's 
necessary to subtract the CURPOS value from 20. Assume that 
we've printed 14 characters so far: 20 — 14 = 6. We use this 
result in a loop to print blanks to the printer (3660) to cause a 
simulated TAB. 

Following the TAB, we're set to print an address label 
which is still waiting for us up in the buffer FILEN. As usual, 
we set TEMP to point to the message we want printed, and JSR 
PRNTMESS, thereby printing whatever is in FILEN, delimited 
by 0. 

Source Code Printout 

It's time to move over to the thirtieth position (on screen or 
printer) to the place where the source code is printed. This is 
handled basically the same way as the TAB 20 above. The main 
difference is the BEQ and BMI checks (3920) to take care of ex¬ 
tra long labels. In most cases, your labels will be less than ten 
characters long, but LADS allows labels to be any length. Flow 
will we balance the need for neat, vertically aligned printouts 
against the option of labels of any length? How can labels 
which potentially range in length from 1 to 200 characters be 
formatted? 

Since address labels always start in the twentieth position, 
and source code always begins in the thirtieth position, we've 
allowed ten spaces for address labels during printout. Onscreen, 
an address label 12 characters long would be truncated: 
STARTLINEHERE would be printed as STARTLINEH. But on 
the printer, the entire label would be printed and simply push 
the source code printout over. You can adjust any of these 
formatting options rather easily if they don't suit your needs. If 
you want to truncate address labels to five rather than ten 
character lengths on screen, just change LDA #30 to LDA #25 
(3830). 

In INLINE, we've done some output switching between 
screen and printer. We've called upon routines like CLRCHN, 
CHKOUT, and CHKIN. The protocol for using these routines is 
discussed in Chapter 5, the chapter on peripheral 
communications. 
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PRMMFIN (4000) prints the characters in the buffer LA¬ 
BEL. That will be the source code. Then, LADS checks to see if 
there was a < or > pseudo-op in this line. If so, it tags one of 
these symbols onto the end of the source code label. If your 
source code looks like this: LDA #>STARTLINE, the printout 
will be LDA #STARTLINE>. This will help to call attention to 
this special pseudo-op addressing mode. The < and > symbols 
are not buried within the label. 

The underlying reason for doing things this way, however, 
is not its visual appeal. It's easier and faster for LADS to an¬ 
alyze #STARTLINE than to analyze #>STARTLINE. During the 
analysis phase, LADS pulls out the < or > and raises BYTLFAG 
to show that the pseudo-op was originally a part of the label. 
Then it can assemble the label the same way it would assemble 
any other label. 

The final job to be performed by INLINE is to check 
BABFLAG to see if there is a REMark, a comment, to print out 
(4100). The Indisk subprogam sends any comments to the 
buffer called BABUF to keep them safely out of the way. 

BABUF is the same buffer that BASIC uses for input. If there is 
a comment, we print a semicolon (4130), point TEMP to BABUF 
(4160), and PRNTMESS. 

Then a carriage return is printed and we check to see if this 
was the final line of the source code. If ENDFLAG is set, we go 
to the assembly shutdown routine, FINI. If not, we pop back up 
to where we first started this line, STARTLINE, and pull in the 
next line of source code. 

FINI: Which Pass? 

As a two-pass assembler, LADS, of course, goes through the 
entire source code twice. When we get to FINI, we need to 
check which pass we're on. If it's pass 1, we INC PASS (from 
its zero condition, thereby setting it). After this INC, the next 
time we reach the end of the source code and come to FINI, 
we'll be sent to FIN, the shutdown routine. 

But assume we've just finished pass 1 at this point. What 
we must do is reset the PC, the Program Counter. Back at the 
beginning, we saved the starting address in TA. SA has been 
LADS' PC variable, counting up and always keeping track of 
the current address during each event. Now it's time to reset 
SA by putting TA in it. Then we close the source code file on 
disk and promptly open it up again. This has the effect of reset- 
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ting the disk's PC to point to the first byte in the disk file. Now 
we're ready to read in the source code all over again. We're 
ready to start the second pass. 

We jump back up, just below START, to SMORE and read 
in, once again, the first line of the entire source code. 

If we've already completed pass 2, however, we don't want 
to restart source code examination—everything's already 
accomplished, POKEd and PRINTed and SAVEd to disk as the 
case may be. We want to gracefully exit the assembler. FIN 
(4390) does this. It closes down any read or write files on disk, 
closes down communication to a printer, and jumps to BASIC 
mode. Now would be the time to try the object code program, 
to make some adjustments to your source code if you want, and 
then SYS back into LADS for another assembly. 

Each computer has a ''side entrance," a warm start into its 
BASIC. This entrance doesn't wipe out what's in RAM memory, 
doesn't blank out the screen. It's here that the LADS goes to 
move gently back into BASIC mode. The address of TOBASIC 
for each computer is defined in the subprogam Defs. 

Evaluating ,X and ,Y 

Although FINI is the logical end of the evaluation process, it's 
not the physical end of the Eval subprogram. Just below FINI is 
XYTYPE where such addressing modes as LDA $5000,Y are 
analyzed. 

They too require some opcode adjustments before going to 
TWOS or THREES for printing and POKEing. We JMP to 
XYTYPE after having found a comma in a source code line like: 
LDA SCREEN,X 

and so the Y Register is pointing to the character just beyond 
the comma when we arrive at XYTYPE. All we need to do is 
load BUFFER,Y to check if the character following the comma is 
an X or a Y. If it's an X, we jump down to L720 which handles 
X type modes. 

Otherwise, we're dealing with something involving a Y 
addressing mode. It might be this: 

LDA (15),Y 

so we have to check for the right parenthesis. We DEY DEY to 
move over to just in front of the comma and see if there's a ) 
symbol. If not, we've got a Zero Page Y addressing mode like 
LDX 10,Y or STX 10,Y. LDX and STX are the only two 
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mnemonics which can use Zero Page Y addressing. They're 
rare. It's quite likely you haven't ever used them; it's possible 
that you haven't ever heard of them. But LADS must check for 
them just in case. LADS goes to ZEROY if there was no ) 
symbol. 

LADS is likely to find the ), however, because Indirect Y 
addressing is a mode which is both common and useful. En¬ 
countering this mode, LADS goes to INDIR to process the In¬ 
direct addressing mode. 

ZEROY (4660) is a somewhat misleading name, for it also 
handles the popular mode. Absolute Y: LDA SCREEN,Y. This 
addressing mode is not Zero Page. To find out whether it's 
dealing with the Zero Page Y, LADS checks the high byte of 
RESULT, the argument. If the high byte contains nothing, it 
must be zero page, and we process the opcode as such. If the 
high byte does contain something, the argument is thus larger 
than 255 and the opcode cannot use a Zero Page addressing 
mode. Again, the opcode is adjusted depending on the type (TP). 

The routine at L700 (4950) prints out an error message be¬ 
cause LADS was unable to calculate a correct addressing mode 
and the source code must contain a syntax error. 

The concluding adjustments to the opcode take place be¬ 
tween L720 and L809 (5040-5450). You might notice several 
JSRs to P in this section. P (5520) is a short subroutine which 
was used in debugging LADS, but was left in because you 
might want to use it when fixing up your own programs. 

How P Works 

P prints the current PC on screen, but doesn't destroy what's in 
the A, Y, or X Registers. Saving A, Y, and X is straightforward 
enough (5520), but where is the PC? 

Whenever you JSR, the return address is pushed onto the 
stack. We can pull it off the stack with PLA, transferring its two 
bytes (one to the X Register and one to the Accumulator), and 
then push it back on with PH A. That leaves the stack ready to 
RTS correctly, but a copy of this RTS address is now in the reg¬ 
isters as well, OUTNUM is a BASIC routine which normally 
prints line numbers during BASIC's LIST. But it will print any 
integer number if the low byte is in X and the high byte is in A. 
(See Atari notes for Atari's OUTNUM.) 

Character $BA on Commodore machines is a check graph¬ 
ics symbol (), and it's a convenient way to show that what 
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follows is not part of a normal LADS printout. You could use 
any other symbol to highlight the special nature of the number 
being printed by P. What's important is that you are alerted to 
the fact that somewhere within your ML program, you did JSR 
to P. And the number that P prints will be the address of that 
JSR. 

How is P useful? An ML program is like a rocket. It's so 
fast that you need to send up balloons now and then just to 
mark its passage from subroutine to subroutine. When you're 
not getting what you expect (and that's often in large, interact¬ 
ing ML programs), you can put JSR P into various parts of the 
program. Then, as the program zips along, you'll be able to see 
what's happening and in what order it's happening. 

P is like setting BRK into the code or putting STOP into a 
BASIC program. The difference is that P just gives you a simple 
location report and lets the program continue, uninterrupted. If 
you wanted more information, you could expand P to print the 
registers at the same time. With that, you'd be on your way to¬ 
ward constructing the single-step debugging feature available in 
some monitor programs. 

CLEANLAB (5720) is janitorial. It wipes the main buffers 
clean. It puts 80 zeros into LADS' main input buffer starting at 
LABEL (see Chapter 9, where the Tables are described). We 
don't want any remnants of the previous line left over to con¬ 
fuse things. 

Finally, DOBERR is the error message printout routine for 
branches out of range. It rings the bell (ERRING), prints the 
offending line number, then points TEMPS to its message 
(stored with the other messages in the Tables subprogram), and 
jumps to TWOS so that the Program Counter will still be cor¬ 
rectly incmased by two. 

Now we've seen the innards of Eval, the main evaluation 
engine, the heart of the LADS assembler. It's time to turn our 
attention to the data base managers Equate and Array. They 
build and search the array of labels. 
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OPCODE TABLE (SEE CHAPTER 9 FOR EXPLANATION) 
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CLRCHN; RESTORE NORMAL i/O 








PRNTINPUT; PRINT MAIN INPUT BUFFER (BULK OF SOURCE LINE) 
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DEBUGGING (PRINTS PC) 
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Equate and Array: 

Data Base Management 

The job of setting up an array in machine language is simpler 
than you might imagine. The subprograms Equate and Array 
build and access a data base. 

There are two basic ways to go about storing information: 
in fixed or in variable length fields. (A field in data base 
management means a single item, such as a single label name 
in LADS.) Fixed fields are easier to search, modify, and sort. 
Variable length fields save memory space. LADS uses variable 
length fields so the label table will take up as little space 
as possible. 

A fixed field label system of managing data assigns a 
specified size in bytes for each item. If we had wanted to use 
this method of data storage for LADS' labels, we could have 
made a rule that label names cannot be larger than ten letters 
long. This would obviously make it simpler to manage the data. 

However, then any label, even short labels, would always 
take up ten bytes. That would use up memory rather in¬ 
efficiently. Instead, LADS allows labels to be of any length. If 
you are like me, the labels that you will think up naturally 
(without any restrictions imposed on your imagination) will 
normally average about five characters in length. Some will be 
longer, some shorter, but the average label will take up five 
bytes. Two bytes will be attached to each label to hold the inte¬ 
ger number value which the label stands for. So, the average 
LADS variable (label name plus two-byte integer) takes up 
seven bytes. However, these variable length fields use up about 
40 percent less memory when you consider that fields fixed at 
ten bytes would always take up ten bytes plus the two-byte 
number, never less. 

Sons, Daughters, Clones 

LADS itself is, of course, an ML program. You can have LADS 
object code assemble the LADS source code to disk or some¬ 
where in RAM memory. This would create a new version of 
the assembler. If you'd made any changes to the source code, it 
would be an offspring, a son or daughter of LADS. If you 
didn't change the source code, you'd have created a clone, but 
the start address would differ. 
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LADS is about 5K long and uses 402 different labels. When 
it assembles itself from its own source code, it builds a label ta¬ 
ble which is 2851 bytes large. If it had fields fixed at ten bytes, 
the label table would be 4824 bytes large. 

Why worry? It's true that the label table matters only dur¬ 
ing the actual assembly process. As soon as object code has 
been created and LADS returns to BASIC, the label table has 
served its purpose and can be tossed out like an eggshell after 
the egg is in the pan. 

There are two good reasons for conserving memory: (1) the 
environment and (2) interactive freedom. Picture this: While 
assembling itself (or a comparably large program), LADS uses 
up about 8K of memory—5K for itself, perhaps 3K for the label 
table that builds down from the bottom of the assembler. And 
if you've chosen the option of assembling object code to RAM 
memory, add another 5K for the object code (the resulting ML 
program). A total of 13K. In some computers, this represents a 
significant bite out of the available memory. 

What's more, LADS is supposed to be interactive. You are 
to have the psychological freedom you have with BASIC, to 
change things, to experiment, and then to quickly assemble and 
test the result. This means that you need space to write your 
source program (in RAM where a BASIC program is normally 
written). Perhaps you'll want a monitor extension in RAM too, 
like "Micromon'' or "Supermon" or some other collection of 
ML utilities which permit single-step analysis of ML object pro¬ 
grams, and other tools which are useful when debugging object 
code. And you might want "BASIC Aid" or "POWER" or some 
BASIC auto numbering, and other BASIC aids to manipulate 
the source code. You might want two different versions of your 
object code in RAM simultaneously so you can compare them 
in action. 

The Programming Environment 

All of these options require available RAM. If you can have 
them all in memory at once, you've got a better environment for 
developing an ML program. You won't always need to wonder 
if it's worth loading in a certain routine or utility: They're all 
there and ready to go. All your tools are at hand. This is a 
more efficient way to program. Tools that are out of reach are 
usually tools left unused. 

Second, you want as few restrictions as possible when 
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working with ML. You don't want to concern yourself about 
the length of each label name. Is it short enough? Does it dupli¬ 
cate a similar name? Eliminating these questions, too, is part of 
the interactivity, the mental freedom that comes with a 
smoothly running, efficient program development system. Vari¬ 
able length labels promote both effective memory conservation 
and an efficient programming environment. 

Equate 

The Equate subprogram starts off with one of those LDY #255 
initializations. Remember that we don't always want to LDY #0 
before a loop. There are times when the first event is the zeroth 
event. This is one of those times. 

Line 40 sets Y to 255 so the INY in line 50 will make Y = 
0. This allows us to LDA LABEL,Y and receive the first charac¬ 
ter in the buffer called LABEL. If we had set Y=0, the INY 
would have forced us to look at the second character in the 
buffer. Why not put the INY lower in the loop somewhere? 
That way, we would load in the first character the first time 
through the loop. 

Obviously we can't INY just before the BNE in line 90. 
That would branch depending on the condition of Y itself, not 
on the item in A (which is our intention). For the same reason, 
we can't put it just before the BEQ in line 70. The only other 
safe place for it would be in a line between 70 and 80. That 
wouldn't do any damage to the branches because the CMP will 
reset the flags and the following BNE will act correctly. 

This loop isn't moving characters from one buffer to an¬ 
other or anything. Its sole purpose is to count the number of 
characters in a label name, to find the length of the label. Y is 
the counter. 

While locating Y in a line 75 would work correctly, it 
would be less clear what the loop is accomplishing. In cases 
like this, you have to decide where your personal priorities lie: 
Do you want to emphasize the function of a routine in a way 
that's more easily understood, or do you want to emphasize a 
uniform style of coding loops? If you prefer to always start such 
loops with LDY #0, by all means, go ahead. But that LDY #255 
serves to alert you that this loop is a special kind of loop. If you 
come back later to modify a program, such signals can be 
helpful. 
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Once the length of our label is discovered, we add 2 to it 
by INY INY, to make room for the two-byte integer which will 
be attached to the label in our array. Each label stands for a 
number. And any legal number in ML can be stored within two 
bytes as an integer between 0 and 65535 ($0000-$FFFF). 

Equate is called upon only during pass 1. On pass 1, the 
assembler puts each label into the array and attaches the two- 
byte integer onto the end of the word. So Equate's first job is to 
find out how much room to make in the array for each new la¬ 
bel it comes upon. It makes room by lowering the MEMTOP 
variable by the length of the label name, plus two. 

Building the Array Downward 

SUBMEM moves our pointer down to make room for a new la¬ 
bel. When SUBMEM is finished (200), the array is larger by the 
size of the new word we're adding to it, plus two bytes for the 
value of the word. The array is thus expanded, lowered. 

Now we can store the label in the array. The first letter of 
each label in the array is special. It's shifted. That is, we add 
$80 (128 decimal) to the normal ASCII code value of the 
character. This is the same as setting the seventh bit. 

If the label is "addnum,'' we want to store it as "Addnum" 
so that when we later search through the array, we can locate 
the start of each new label. The shifted letter will be our delim¬ 
iter, separating the different labels. With fixed length fields, we 
wouldn't need a delimiter at all—each label would be exactly 
the same size as every other label. But our labels can vary in 
length, so we have to know where one begins and another 
ends. 

The array will look like this (the xx is the two-byte value 
of each label): 

AddnumxxSecondwordxxThirdwordxxFourthlabelxxFifhlabelxx 

What exactly does it mean to say that a letter is shifted ? In 
the ASCII code for alphabetic, numeric, punctuation (! or . or ,), 
and symbolic (# or % or *) characters, everything is assigned a 
code number which is lower than 128. Above 128 are the 
uppercase versions of letters, etc. Hence, above 128, the charac¬ 
ters are shifted. For the purposes of ML, a shifted character is 
something with an ASCII code value greater than 127. It has 
the seventh bit set in its byte: 10000000. That leftmost bit 
would always be up in any shifted character. This phenomenon 
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makes it easy to distinguish between shifted and unshifted 
characters. We can just LDA CHARACTER and then BMI 
(branch if seventh bit up) or BPL (branch if seventh bit down). 
The subprogram Array will make good use of this clue. 

For now, all we want to do is shift the first character before 
we store it into the array. We just set up the seventh bit. If 
that's the same as adding $80 to a character, why not simply 
ADC $80 instead of EOR $80 (230)? With EOR we get a 1 if ei¬ 
ther of the compared bits is set. We get a 0 if both bits are 1 or 
if both bits are 0. The only way we get a 1 is if one of the bits 
is 0 and the other bit is 1. Any other situation results in a 0. 
Look at a bit comparison: 

1EOR 1 = 0 
0 EOR 0 = 0 
1 EOR 0 = 1 

Consequently, EOR $80, with the $80 (binary 10000000) 
acting as a mask, will leave all the bits in the Accumulator un¬ 
changed, but will set the seventh bit. The main reason to use 
EOR is that we don't have to bother with clearing the carry 
(CLC) as we normally would prior to any addition. 

After we store the shifted first letter in what is currently 
the lowest position in the array, we INY. This serves two pur¬ 
poses: It points us to the second character in the label word and 
also points us to the second space from the bottom of the array 
(where the second character of the label word belongs). 

Address or Equate? 

Now we load the second character and check if it's a space 
(260-280). We might be dealing with a one-character-long label, 
like P. We've got to check for this eventuality. Finding such a 
short label, we would jump down to see if there's an = sign. 
But if the label is more than one character long, we store the 
second letter in the array (290) and jump back up to fetch and 
store the third and any additional letters in the label name. 

The essential thing to notice here is that a space is our 
delimiter in the buffer—letting us know when we've reached 
the end of the label word. And after finding a space, we are 
then prepared to distinguish between the two types of labels: 
PC and equate. 

We compare the character following the space to $3D (this 
is the = sign). If it is an = sign, we branch to the routine 
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which assesses the argument following the equals sign (is it 
hex? is it decimal?). Otherwise, we go through this BEQ to the 
routine which handles PC-type labels (Program Counter types 
like: LABEL LDA 15, where the label indicates a location within 
the assembled program). 

Storing the value of this kind of label is pretty simple: We 
just put the SA into the array. SA is the variable which always 
holds the current address during an assembly. But one thing re¬ 
mains to be done before we can return to the Eval subprogram 
to evaluate the LDA 15 part of this line. We've got to wipe out 
the word LABEL which precedes the LDA 15. Eval wouldn't 
know how to evaluate it. It's not a mnemonic. 

After loading LABSIZE (the length of the label) into X, we 
load Y with 0. Y will point to the first space in the buffer, while 
X will count down until we've covered over the word LABEL 
(430). 

Removing an Address Label 

We load the leftmost part of the mnemonic/argument pair (the 
L of LDA is first), and we store it in the leftmost space in the 
buffer. In other words, the L of LDA covers up the L of LABEL. 
We continue with this process until we've loaded in a 0 and 
have therefore replaced LABEL LDA 15 with LDA 15, where¬ 
upon we store the final 0 as a delimiter and can return to Eval 
(510). 

This next subroutine, NOAR (520), isn't in any sequential 
relationship to the other routines. It just happens to be here. It 
could be anywhere else in LADS just as easily. Its function is to 
ring the error bell and point TEMP to the message NAKED LA¬ 
BEL and then print that error message. It handles those cases 
when a programmer forgot to put anything after a label: 

00 LABELrINY 
or 

100 LABEL 

or 

100 LABEL = 

Equate Labels 

If we're not dealing with a PC-type label, though, we come 
here to store an equate label like LABEL = $22 (590) into the 
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label array. We need to store Y first (in the variable LABPTR) 
so we can remember where in our array to put the value, the 
number following the equals sign. Remember that we've al¬ 
ready stored the label name. What we need to do now is to put 
the value in the two bytes just following that name. When we 
arrive at this subroutine, Y is holding the correct offset from 
MEMTOP, the correct distance up in memory, from the bottom 
of the array to store the value. 

There are now two possibilities. We are dealing with either 
a decimal number or a hex number. Hex numbers are translated 
by Indisk, the input subprogram, as they flow in from a disk 
file or RAM memory source code. So a hex number is already 
in the RESULT variable, waiting to be stored in the array. 

But decimal numbers aren't translated as they come in. 
What's more, they arrive in ASCII form and must be converted 
into an integer by the subprogram Valdec. 

We check the HEXFLAG to see if it's a hex number (610). 

If so, we can just put RESULT into the array and return to Eval 
(750). 

But if it's a decimal number, we add the value of Y + 3 to 
the start-of-buffer address and point TEMP to the first character 
in the number we need to evaluate. We have to add this three 
to Y because the expression "space-equals sign-space" takes up 
three bytes. If we add this to the start of the buffer address, 
we're pointing to the first character in the number, pointing to 
the 1 in an example like: LABEL = 15. 

Then we JSR to VALDEC, which looks at the number 
pointed to by TEMP and translates it from ASCII to an integer 
and puts the answer in the two-byte variable RESULT. 

After this, we go through the same process as with hex 
numbers described above. The RESULT is transferred to the ar¬ 
ray, we pull off the two-byte RTS left on the stack (when we 
JSRed here from the Eval subprogram), and then jump back 
into Eval at INLINE, the place where a new line is pulled in 
from disk. 

Array 

The Array subprogram is essentially a search routine. It looks 
up a label's name in the array that was built by the Equate sub¬ 
program. When it finds a match, it puts the integer value of the 
array word into the variable RESULT. In effect. Array replaces a 
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label with its number. Here's an example fragment of source 
code: 

10 *= 864 

100 NAME = 2 

110 LABEL = 15 

120 START LDA LABEL 

On pass 1, Equate would store // Start864Labell5Name02" 
into the array. The LADS label array builds down from the 
location of the start of LADS object code in memory. That is, 
the first part of LADS itself would be right above Name02. Line 
120 contains two labels, START and LABEL. However, Equate 
ignores any labels which are not the first word in a given line. 

It only stores labels when it comes across the line in which 
they are defined. Any label being defined will be the first item 
in a given line. And if they are defined twice in the source 
code, that's an error. 

(Note that, in the example of array storage above, Start864 
is for illustration only. The number 864 is stored as a two-byte 
integer, not as 864, the ASCII characters we can read.) 

While Equate ignores any label which is not the first thing 
on a line. Array ignores any label that is the first thing on a 
line. In the example above. Array would pay no attention to 
any of the labels except LABEL in line 120. It's Array's job to 
evaluate expression labels. An expression label is one that is 
used in an expression, one that is used as the argument of a 
mnemonic. 

Array Works on Both Passes 

Nevertheless, Array must operate on pass 1 as well as on pass 
2. This is because pass 1 must keep an accurate PC, an accurate 
Program Counter. For Equate to store the correct number for la¬ 
bels, of the address (PC) type (like START in the example 
above), it must be able to find out precisely where in memory a 
given line is to be assembled. It must know that START is lo¬ 
cated at 864. 

This problem derives from Zero Page addressing. LDA 15 
takes up only two bytes in memory when assembled. LDA 
1500 takes up three bytes. If labels were used in place of 15 
and 1500 in these instructions, we must know 
whether to raise the PC by two or by three. So Array must look 
up all arguments on pass 1 to decide how much to increment 
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the PC. (This PC, or Program Counter, is held in the LADS 
variable SA.) 

In line 30 where Array begins, it moves the "bottom-of- 
LADS" (top of array) address from its permanent storage place, 
the variable ARRAYTOP, to the dynamic, changing pointer 
PARRAY. PARRAY will be lowered frequently as it points us 
down through the entire array. 

Then we JSR to DECPAR which is the subroutine that low¬ 
ers the PARRAY pointer by 1. And we stuff a $FF into the flag 
called FOUNDFLAG (90). This is a simple way to test if we've 
found our match. If we do find a match, as we'll soon see, we 
INC FOUNDFLAG. This means that FOUNDFLAG can more 
easily be tested in the way we want to test it. If it gets INCed 
once, it will be 0. INCed twice, it will be 1. INCed twice (or 
more) would mean that a label exists more than once in the ar¬ 
ray. That's an error, a redefined label, and we'll want to alert the 
programmer. Putting $FF into FOUNDFLAG thus allowed us to 
use BEQ to test for this error. 

Checking for the Bottom 

But all that comes later. The primary routine in Array starts 
with STARTLK (100), and oddly enough, the first thing we do is 
check to see if we're at the bottom of the array. The Equate 
subprogram always leaves the variable MEMTOP pointing to 
the bottom of the array. So, by subtracting our current position 
in the array (PARRAY) from the bottom of the array 
(MEMTOP), we can tell if we've finished looking through the 
array. If PARRAY is lower than MEMTOP, the carry will re¬ 
main set, and we will then BCS down to the all-finished rou¬ 
tine, ADONE. 

Otherwise, we've got to keep on looking. Remember that 
Array must look through the entire array each time; even after 
it finds a match, it must continue looking for another match. 
This is the only way we can detect duplicated labels. 

Array has to accomplish several things at once. It's got to 
point to the current position in the array, keep track of how 
large a given label is, and check each letter of each word. The 
chip registers will all be busy: A holds characters for checking, 

X keeps count of how large each label is, and Y (working with 
PARRAY) keeps track of our current position. Here, in line 160, 
we set X to zero. 

Then we lower PARRAY by two to get past the number 
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part of a label stored in array (170-230). We want to get past 
the 99 in /Label99/. Some of the stored numbers will have 
their seventh bit set; they'll be larger than 127. So we've got to 
jump over every stored number since the set seventh bit is our 
test to see if we've come upon the first character in a label 
name. We don't want numbers masquerading as label name 
delimiters. 

At last we look at a character (260), and if the seventh bit 
is set, we BMI down to FOUNDONE. If it's not the start of a 
label name, we decrement PARR AY by 1 and jump up to 
LPAR to look at the next letter lower in memory within the ar¬ 
ray. Notice that we also raise the X (label length) counter (320). 
By the time we've found a shifted seventh bit indicating the 
start of a label name, X will hold the correct length of the 
name. 

Double Decrement 

Let's pause a minute to look at how a double decrement works 
(280-310). If, upon loading the low byte of PARRAY, the zero 
flag is set, we would be forced to lower the high byte of 
PARRAY (PARRAY +1 in line 300). If the low byte isn't yet 
lowered to zero, however, we can just lower the low byte and 
ignore the high byte (310). Note that a zero in the low byte re¬ 
quires lowering both the high and low bytes. Correctly 
decrementing $8500 would result in $84FF, lowering both 
bytes, while a correct decrement of $8501 would just lower the 
low byte: $8500. 

Once we have located a set seventh bit, thus locating the 
start of a label name, we come to the FOUNDONE subroutine 
(350). Here we must first store PARRAY into the temporary 
holding variable PT so we can remember exactly where the la¬ 
bel name begins. Then we reload A with the first character of 
the label (390) and compare it against the first character of the 
label we're looking for. That first character was previously in 
the variable WORK just before we came to Array from Eval. 

If these first characters match, we go to LKMORE to check 
the rest of the word for a full match. If not, we go to 
STARTOVER. 

In LKMORE, we first raise X to be the correct length of the 
current array label under examination. Then we save it in the 
variable WORK+1. We've got to save it at this point because 
now X will serve as the counter of the source label length. The 
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source label is the word we're looking for, the label from the 
source code we're trying to find a match to. 

The fact that some labels will be like (LABEL),Y or #LABEL 
(having a ( or # as their first character) is a potential source of 
confusion to the Array search routine. To eliminate this confu¬ 
sion, whenever a ( or # is encountered during the Eval sub¬ 
program, a special flag, BUFLAG, is raised. That makes it easy 
for us to skip over them here by raising the Y offset (490) if 
necessary. 

Paradoxically, we simply INY again, right after this. That's 
because we want to point to the second character in the label 
(we got this far because the first characters matched). Neverthe¬ 
less, the combination of INY and DECPAR (490-500) effectively 
takes care of the ( or # situation and makes this INY point to 
the second letter of the label proper. 

The LKM1 loop compares the entire rest of the source label 
against the array label (520-600). There are three ways, and 
only three ways, for us to get out of this loop. We can come 
upon a zero, which would surely be the end of the label in the 
buffer (the source label). A zero always means the end of a line 
of source code. Or we can come upon a character which is 
lower than 48. That includes things like left parentheses and 
commas in the ASCII code. Something like the comma in LDA 
LABEL,X would signal the end of the source label. (Checking 
for characters lower than 48, however, doesn't exclude num¬ 
bers. We can still check for such legal labels as: LDA LABEL12.) 

The Third Exit 

The third way to exit this loop is when we fail to find a charac¬ 
ter match in the labels. Any point at which this happens, we 
''fall through'' line 600—these characters do not BEQ, they're 
not equal. If they are equal, we go back up to check the next 
pair of characters. Notice that X continues to count the length 
of the words (580). In effect, it is counting the length of the 
source label (we already know the length of the array label and 
have it safely stashed away in the variable WORK-I-1). 

If we leave this loop with a match, it will be a zero or a 
comma or right parenthesis in the source label that causes us to 
leave. X will then be holding the length of the source label. It's 
possible that we'll find an apparently "perfect match" which 
isn't, in fact, a match at all. For example, LABEL (as the array 
label) and LABE (as the source label) would appear to this 
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LKM1 loop as a perfect match. The only way we have of 
knowing that they do not really match is to compare their 
lengths. 

If we fail to find a match, STARTOVER (620) just restores 
the correct array location of PARRAY (pointing at the first 
character in the label that just failed), and then we lower 
PARRAY by 1 (660) and jump back up to the STARTLK rou¬ 
tine. STARTLK will also lower PARRAY by 1. This double 
lowering of PARRAY moves it past the number stored in the 
two bytes at the end of the next label down, thus preparing us 
to start the comparison process all over again. 

On the other hand, if we did find a match, we go to 
FOUNDIT (950). Right off the bat, we check to see if the cur¬ 
rent value of X (length of the source label) matches the pre¬ 
viously stored value of X (length of the array label). If they 
don't match, we've got that LABEL LABE situation, and we 
STARTOVER. 

If everything checks out, though, we've got an authentic 
match. We raise the FOUNDFLAG. If this is the first match, 
FOUNDFLAG goes up from $FF to $00. That's fine. There 
should be one match. If, however, FOUNDFLAG is higher than 
0, it means we've found more than one match, and we JSR to 
DUPLAB where the "duplicated label" error message is printed 
out (1360). 

With or without this message, we next compensate for the 
( or # symbols which might be at the start of a source label and 
then load in the low byte of the number stored just above the 
array label. We put this byte into RESULT and put the high 
byte into RESULT +1. When we arrive here at FOUNDIT, the 
Y Register is pointing just past the end of the label. In other 
words, Y is pointing at the number stored with the label in the 
array. This is because we left the LKM1 loop when we got to 
the end of the label. 

Pseudo-op Adjustments 

Here's where we make the adjustments for two of our pseudo¬ 
ops: > < and +. If BYTFLAG is set, it means that < or > was 
used to request the low or high byte of a label. LDA #<LABEL 
requests the low byte (and Eval will only deal with low bytes 
in the # Immediate addressing mode). The label's low byte is 
already in the low byte of RESULT, so we need do nothing. But 
BYTFLAG is a special kind of flag. It has three states rather 
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than the normal two (set or clear, up or down) states. If it con¬ 
tains a 2, this signals that the #>LABEL pseudo-op was used, 
requesting the high byte of the label. To do this, we need to 
put the high byte of RESULT into the low byte of RESULT 
(1140-50). That's it. 

PLUSFLAG signals a + pseudo-op like LDA LABEL+25. 
The amount we're supposed to add to LABEL (the 25) is al¬ 
ready stored in the variable ADDNUM (by a subroutine in the 
Indisk subprogram). All we have to do here is add ADDNUM 
to the value in RESULT (1180-1240). 

When these two pseudo-ops have been taken care of, we 
return to STARTOVER and keep looking for duplicated labels if 
we're on pass 1. On pass 1, we aren't allowed to leave the Ar¬ 
ray. On pass 2, however, it's not necessary to repeat this check¬ 
ing or to repeat the error messages, so we RTS, which sends us 
back to the Eval subprogram. 

We've successfully put the value of the source label into 
RESULT. Now the Eval subprogram can go on to figure out the 
addressing mode, finish up by POKEing in the opcode and the 
argument, and then pull in the next line of source code. 

But what if we didn't find any match to the source label 
and we've gone through the entire array? This can mean two 
things, depending on which pass we're on. On pass 1, it's 
harmless enough. It could well mean that the label hasn't yet 
been defined: 

100 INY 

110 BNE FORWARDLOOP 
120 INX 

130 FORWARDLOOP LDA 15 

On the first pass, the label FORWARDLOOP will not be in 
the array until line 130. Nevertheless, the Array subprogram 
will search for it in line 110. And it won't find it. But so what? 
On pass 1, we can just ignore this failure to find a match and 
RTS back to Eval. 

It would be a serious error, though, if the label could not 
be found in the array on pass 2. It would be an "undefined la¬ 
bel" error. 

When a Label Was Never Defined 

Both of these possibilities are dealt with in the subroutine 

ADONE (690-940). If FOUNDFLAG has the seventh bit set. 
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that means that it's still holding the $FF we put there at the 
very start of Array. We never found the match. We check the 
PASS, and if it's pass 2, we print the line number and the 
NOLAB error message "undefined label." 

Then, no matter which pass it is, we still want to keep the 
program counter straight, or all the rest of the assembly will be 
off. The problem is that an undefined label doesn't give us the 
answer to the question: Is this a three-byte ordinary address or 
a two-byte zero page address? Is it LDA 15 or LDA 1500? 
Should we raise the PC by two or by three? If we raise it the 
wrong amount, any future reference to address-type labels will 
be skewed. Here's why: 

100 *= 800 

110 LDA LABEL; this label is undefined 

120 ADDRESS INY; what is the location of ADDRESS here? 

If LABEL is in zero page, ADDRESS = 802. If LABEL is 
not zero page, ADDRESS = 803. We should try to get this 
right on pass 1. Pass 2 depends on pass 1 for correct label val¬ 
ues, including address-type labels. Even if a label is not yet de¬ 
fined, we should still try to raise the program counter by the 
correct amount. 

In Eval there are routines called TWOS and THREES. 
TWOS raises the PC by two bytes for Zero Page and other two- 
byte-long addressing modes like LDA #15. THREES handles 
three-byte-long modes like Absolute addresses, etc. It's here in 
the Array subprogram, however, that we have to decide which 
of these routines to jump back to in Eval. 

Branches like BNE and BEQ will often be undefined during 
pass 1 because the program is branching forward. We'll want to 
go to TWOS if there's an undefined label following a branch 
instruction. All branches are type 8, and we can easily check for 
them by LDA TP:CMP #8 (860). The other possible TWOS can¬ 
didate is one of the > or < pseudo-ops. BYTFLAG signals one 
of them. 
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The # Immediate addressing mode is not tested for, so this 
adjustment isn't foolproof. The assumption is that any un¬ 
defined label is essentially a fatal error and that there will have 
to be a reassembly. Most undefined labels are considered to be 
three-byte instructions and we JMP THREES (920). 

This clarifies why LADS cannot permit tbe definition of a 
Zero Page address within the source code. All Zero Page ad¬ 
dress labels must be defined at the start of the source code, 
before any actual assembly takes place. Without this rule, our 
"yet-undefined-label" routine (690-930) will treat them, in¬ 
correctly, as three-byte address modes. It can recognize only 
branches and > < pseudo-ops as two-byte modes. Any other 
label that's not defined will be seen as a three-byte type. 
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230 EOR #$80 
240 STA (MEMTOP) 








(SIGNIFYING EQUATE TYPE) (LABEL 
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HANDLE EQUATE TYPES HERE (LABEL = 15) 
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For the Atari version of Equate, change line 840 to: 840 .FILE DrARRAY.SRC 







DYNAMIC POINTER (PARRAY) 
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260 LPAR LDA (PARRAY),Y; LOOK FOR A 7TH BIT SET (START OF LABEL NAME) 
270 BMI FOUNDONE; IF YES, WE'VE GOT TO THE START OF A NAME. 
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#48; OR THERE'S A MATCH IF IT'S A CHARACTER LOWER THAN ASCII 0 (,OR+) 
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890 BEQ ADO2; CHECK IF BRANCH INSTRUCT. 







950 FOUNDIT CPX WORK+lyCHECK LABEL LENGTH AGAINST TARGET 
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1280 ARENX JMP STARTOVER; ON PASS 2, LOOK FOR DUPS (SO CONTINUE IN ARRAY) 
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I/O (Input/Output), a computer's method of communicating 
with its peripherals, is one of the most machine-specific and 
potentially complex aspects of machine language programming. 

Sending or receiving bytes to or from disk or tape drives 
and sending bytes to a printer are the most common I/O activ¬ 
ities. A large part of a computer's ROM memory is usually de¬ 
voted to managing I/O. 

I/O is machine-specific because each manufacturer invents 
his own way of managing data, his own variations on the 
ASCII code, and his own disk or tape operating systems. 

And I/O is complex because printers and disk and tape 
drives differ greatly in such things as how fast they can store 
bytes, how many bytes they can accept, and esoteric matters 
like timing, error checking, and special control signals. 

ML programmers are frequently advised to perform I/O 
operations in BASIC and then SYS, CALL, or USR into the ML 
after the hard part has been accomplished by the computer's 
operating system. This works well enough with small ML 
projects. But it can become awkward in a large ML program. 
LADS itself must open and close disk files pretty often. It 
would be inefficient to require LADS to fly down into an at¬ 
tached BASIC program for this. Also, large ML programs are 
easiest to save, load, and use if they are written entirely in ML. 

Fortunately, we can access BASIC's ROM routines from 
within an ML program. Certain registers and pointers in zero 
page need to be set up, then we can JSR to open a file to a 
peripheral. After that, we can send or receive bytes from that 
file. 

Since these routines are so machine-specific, we'll look at 
the Commodore techniques in this chapter. See Appendix C for 
an explanation of the Atari and Apple I/O techniques. 
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Commodore I/O 

Some peripherals are intelligent and some are dumb. Com¬ 
modore disk drives are highly intelligent—they've got large 
amounts of RAM and ROM memory. One consequence of this is 
that relatively little I/O computing needs to be done within the 
computer proper. A Commodore disk drive is a little computer 
itself. You can just send it a command, and it takes over from 
there. 

The tape drives, though, are dumb. ROM intelligence within 
the computer must manage I/O to tape. Some printers aren't so 
dumb, but since you can choose from so many different models 
and brands, the computer just sends out a sequence of raw bytes 
when you print to a printer. Your BASIC or operating system 
makes no effort to control fonts, formatting, or any other special 
printer functions. You are expected to send any necessary printer 
control codes via your software. If the printer is equipped to TAB 
or justify text, that's up to the printer's ROM. 

Openl 

In the subprogram Openl, there are four Commodore-specific 
subroutines. In many respects, they are identical subroutines. 
Each opens a file to an external device in much the same way. 
Only the specifics differ. The first subroutine, OPEN1, starts 
communication with a disk file which will be read. That is, the 
source code will come streaming in from this file so that LADS 
can assemble it. This file will be referred to as file 1. 

The second subroutine, OPEN2, opens file 2 as a write file. 

If the user includes the ,D NAME pseudo-op within his source 
code, the results of a LADS assembly, the object code, will be 
stored on disk in a file called NAME. OPEN2 makes the disk 
create this file. 

The third subroutine, OPEN4, creates a simple write file to 
the printer. It, too, is similar to the others except that there is, of 
course, no filename. 

Looking at OPEN1, the first event is a call to the CLRCHN 
subroutine within BASIC. All I/O (including that to the screen 
and from the keyboard) is governed by this opened-files concept 
in Commodore computers. The normal I/O condition is output 
to the screen and input from the keyboard. CLRCHN sets the 
computer to this condition. It is a necessary preliminary before 
any other opening or closing of files. 
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Resetting the Disk Program Counter 

Next we close file #1 (50-60). This resets the disk intelligence. As 
we shift from pass 1 to pass 2, we've been reading through file 
#1 to bring in our source code. On pass 2, we want to start all 
over again with the first byte in the disk source file. It is nec¬ 
essary to close, then reopen, file #1 to force the disk intelligence 
to again point to that first byte in the file. 

Next we must prepare some zero page file-manipulation 
pointers. We store the file number to FNUM, the device number 
(8 is the disk device number in Commodore computers) to 
FDEV, and the secondary address to FSECOND. All of this is 
precisely what we do in opening a file from BASIC with OPEN 
1,8,3. 

Then we have to point to the location of the filename 
within RAM. LADS holds filenames in a buffer called FILEN, so 
we put the low and high bytes of FILEN's address into the 
FNAMEPTR. Then, at last, we go to OPEN, the BASIC sub¬ 
routine which opens a disk file. 

The four zero page locations and the OPEN routine in ROM 
are all machine-specific. They are defined in the Defs sub¬ 
program. OPEN2 is identical except for a different filename, a 
different file number, and a different secondary address (which 
makes it a write file). 

OPEN4, too, is identical except that the secondary address is 
ignored, the device number is 4 (for printers in Commodore 
computers), and there is no filename. 

Line 430 reveals a fifth zero page location which must be 
POKEd before calling the OPEN subroutine in BASIC ROM. It 
holds the length of a filename. (Opening to a printer uses no 
filename, so a zero is put into FNAMELEN [430].) 

Both of the other subroutines, OPEN1 and OPEN2, do not 
need to POKE FNAMELEN. It is POKEd just before LADS JSRs 
to either of them. 

LOAD1, the final I/O subroutine in this subprogram, is 
used with the assemble-from-RAM-memory version of LADS. In 
this case, the source code files are LOADed into RAM before 
they are assembled. This means that we need to imitate a typical 
BASIC LOAD of program files. 

The LOAD subroutine within BASIC requires that the 
LOAD/VERIFY flag be set to LOAD (rather than VERIFY), that 
8 be declared the device (disk), and that the name of the pro¬ 
gram to be loaded be pointed to. Then the machine-specific 
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LOAD routine within BASIC is called. After that, the program 
(the source code) is loaded into the normal RAM address for 
BASIC programs. 

Findmn: Table Lookup 

This subprogram is similar to the Array subprogram: Both look 
through an array and find a match to a "source" word. Yet 
Findmn is simpler than Array. It doesn't need to check for 
word lengths. Also, the numbers (the values) associated with 
the words in the array are more simply retrieved. Findmn tries 
to find a mnemonic like LDA or BCC in a table of all 56 of the 
6502 machine language mnemonics. 

This table (or array) of mnemonic names is in the sub¬ 
program Tables at the very end of LADS source code. The 
mnemonics table starts off like this: 

50 MNEMONICS .BYTE "LDALDYJSRRTSBCSBEQBCCCMP 
60 .BYTE "BNELDXJMPSTASTYSTXINYDEY 
and continues, listing all of the mnemonics. 

This array of mnemonics is simpler and faster to access than 
our array of labels because it's what's called a lookup table. It has 
four characteristics which make it both easy to access and very 
efficient: It's a fixed field array (all items are three bytes long), 
it's static, it's parallel, and it's turbo-charged. 

Charles Brannon, my colleague at COMPUTE! Publications, 
is a proponent of what he calls "turbo-charged code." He writes 
an ML program, gets the logic right, and then takes a cold look 
at things, especially at heavily used loops. Is the first CMP the 
one most often true in a series of CMPs? Or would it be faster to 
rearrange these CMPs in order of their probability of use? 

Should an Indirect Y addressing mode be replaced by an even 
faster structure such as self-modifying Absolute addressing? 
Would a lookup table be a possible replacement for some com¬ 
puted value? Sometimes, small changes can result in extraor¬ 
dinary gains in speed. For example, after LADS was finished and 
thoroughly tested, it took 5 minutes, 40 seconds to assemble it¬ 
self (5K of object code). 

A cold look, about five hours of work, and the resulting few 
minor changes in the source code brought that time down to its 
present speed for self-assembly: 3 minutes, 21 seconds. (This 
speed test was conducted with only the ,D name pseudo-op ac¬ 
tivated, on a Commodore PET/CBM 8032, with a 4040 disk 
drive, and involving far fewer comments than found with the 
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source code as published in this book. The use of additional 
pseudo-ops, additional comments, or other computer/disk 
brands and models will result in different assembly speeds. The 
Apple has a faster disk drive, for example, and the LADS Apple 
version is even faster than the Commodore version.) 

How does this mnemonics lookup table differ from the label 
array? They're both arrays, but the label array is a dynamic array. 
It changes each time you reassemble different source code. A 
lookup table, by contrast, is static: It never changes. It's a place 
where information is permanent and lends itself, therefore, to a 
bit of fiddling, a bit of turbo-charging. 

A Special Order 

First of all, in what order did we put these mnemonics? They're 
not in alphabetical order. In that case, ADC would be first. 
They're not in the numeric order of their opcodes either. Using 
that scheme, BRK would be first, having an opcode of 0. Instead, 
they're in order of their frequency of use in ML programming. 
The order wasn't derived from a scientific study—I just looked at 
them and decided that I used LDA more often than anything 
else. So I put it first. 

The reason for putting them in order of popularity is that 
every line of source code contains a mnemonic. Every time a 
mnemonic is detected, it must be looked up. Since this lookup 
starts with the first three-letter word in the table (all mnemonics 
are three letters long) and works its way up the table, it makes 
sense to have the most common ones lowest in the table. They'll 
be found sooner, and LADS can continue with other things. It 
turns out that rearranging the order of the mnemonics in the ta¬ 
ble resulted in an increase in speed of considerably less than 1 
percent, but everything helps. The principle is valid, even if it 
doesn't accomplish much in this case. 

The second quality of a lookup table—parallelism —is rather 
significant to the speed of LADS. Right below the MNEMONICS 
table in the Tables subprogram are two parallel tables: TYPES 
and OPS. (See the Tables subprogram at the end of Chapter 9.) 
TYPES can be numbers from 0 to 9. It is handy to group 
mnemonics into these ten categories according to the addressing 
modes they are capable of using. Some mnemonics, like RTS, 
INY, and DEY, have only one possible addressing mode (they 
take no argument and have Implied addressing). They are all la¬ 
beled type 0. The branching instructions, BNE, BEQ, etc., are ob- 


109 




Openl, Findmn, Getsa, and Valdec: I/O Management 


viously related in their behavior as well: They are type 8. This 
categorization helps the Eval subprogram calculate addressing 
modes. This table of TYPES parallels the table of MNEMONICS. 
That is, the first mnemonic (LDA) is type 1, so the number 1 is 
the first number in the table of TYPES. The fifth mnemonic in 
the MNEMONICS tables, BCS, is paralleled by the fifth number 
in the TYPES table, 8. 

The Efficiency of Parallel Tables 

What's the value of putting them in parallel? It allows us to use 
the Y or X Register as an index to quickly pull out the values in 
any table which is parallel to the primary lookup table, 
MNEMONICS. Once we've found a match within MNEMON¬ 
ICS, we can simply LDA TYPES,X to get that mnemonic's type. 
And we can also LDA OPS,X to get the opcode for that mne¬ 
monic. All this works because we INX after each failure to match 
as we work our way up through the MNEMONICS table. X will 
point to the right item in each of the parallel tables, after we find 
a match. 

But now on to the actual lookup techniques which are used 
in the Findmn subprogram. As usual, we set our index counters, 
X and Y, before entering a loop. X gets $FF (40), so it will zero at 
the first INX at the start of the loop. Y gets 0. You can tell that 
this was the first subprogram written in LADS. Nowhere else 
can we achieve the elegant simplicity of calling a loop LOOP 
and the end of the routine END (390). After using them once, 
we'll have to come up with other names for loops and exits. 

Anyway, we enter LOOP and look at the first character in 
the MNEMONICS table (60). If it matches the first character in 
the buffer LABEL (holding something like: LDA 15), we jump 
down to look for a match to the second, and then the final, 
character in the mnemonic. Otherwise, if there is no match, we 
INY INY INY to move up three characters in the MNEMONICS 
table and prepare to compare the first letter of the second mne¬ 
monic against our source mnemonic. 

When looking something up, it saves time if you just test 
first characters before going on to whole-word tests. 

Assuming a first characters match, MORE (150) compares 
the second characters. If they match, we go on to MORE1. This 
time a failure to match results in two INYs because there was 
one INY at the start of MORE. MORE1 tests the third characters. 
If it fails, we only need one INY. In each case, a failure returns 
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to LOOP. LOOP itself fails when it has exhausted all 56 
mnemonics in the table and no match has been found. Since 
each attempt causes X in INX, we can test for the end of the ta¬ 
ble of 56 mnemonics by CPX #57 (120). 

If we have exhausted the table, we jump back into the Eval 
subprogram where label definitions are evaluated. Since we 
didn't find a mnemonic as the first thing on a source code line, it 
must be a label like: 

100 LABEL LDA 15 
or 

100 LABEL = 75 

JMP for JMP 

Note that we don't need to PLA PLA the return address of an 
RTS off the stack before JMPing back to Eval from this sub¬ 
program. That's because we JMPed here from Eval. Both possible 
returns to Eval will be JMPs. That makes it possible for us to 
JMP directly to Findmn from Eval. For speed, we can JMP back 
to two different places within Eval, depending on whether we 
did or did not find a mnemonics match. 

Finding a match, however, sends us to the FOUND sub¬ 
routine (300) where we check to see if there is a blank character 
or a zero (end of line) following the supposed mnemonic. If 
there isn't, that means we've got a label which looks like a mne¬ 
monic: INYROUTINE or BPLOT or something. We can't let that 
fool us. If there's a character in the fourth position, such words 
reveal themselves to be labels. If so, we go back to Eval via 
NOMATCH. 

But let's say that all was well. It's not an address label, it's 
not an equate label, it's not a label disguised as a mnemonic. 
We've located a true mnemonic. All we have to do is pick its 
TYPE and OPCODE out of their tables and store them in their 
holding places, the variables TP and OP, and JMP back to EVAR 
in Eval. EVAR is a subroutine in Eval which examines the argu¬ 
ment of a mnemonic to determine its addressing mode. 

Getsa: The Simplest Routine 

This subprogram has only one mission: to point to the starting 
address in the source code program. Here's what it points to: 
10 *= 864 
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Getsa pulls off the first six bytes (in a Commodore disk 
program file) so that it can check to see if the seventh byte is 
the * character (120). If so, Getsa returns to the calling routine 
in Eval (200). If not, it prints the NO START ADDRESS error 
message and goes to FIN (190), the shutdown (return to BASIC) 
routine. 

Conditional Assembly 

There are two fundamentally different versions of LADS. The 
version presented as object code (to be typed in) in this book 
assembles from disk-based source code. You create BASIC-like 
"programs" on disk, and then LADS reads them and assembles 
them without bringing any source code into RAM memory. 

An easy modification to LADS, however, will allow it to 
assemble directly from source code within RAM memory. A 
few trivial changes to LADS' own source code and you can as¬ 
semble a new, memory-based LADS. These changes are de¬ 
scribed between lines 430 and 640 of the Getsa source code 
printed at the end of this chapter. The changes are described in 
greater detail in Chapter 11, "Modifying LADS." 

But this Getsa source code illustrates one way that your 
source code program can conditionally assemble. Notice line 210. 
The MEMSA and CHARIN routines below it will never be 
assembled. When LADS sees the .FILE pseudo-op, it will im¬ 
mediately turn its attention to the Valdec source code. .FILE 
shuts down the current file and switches to the named source 
file, ignoring any additional source code in the current file. 

Thus, to assemble the "conditional" part of this source 
code, all you have to do is move .FILE below the new source 
code. See the instruction in line 580 of this Getsa subprogram. 
That's how you do it to create a memory-based version of 
LADS. 

Another way to conditionally assemble is to insert the .NO 
pseudo-op, thus turning off object-code-to-memory-storage until 
the .O pseudo-op turns it back on. You could write your own 
.ND (no storage to disk) pseudo-op if you want to control 
assembly which is sending its object program to a disk drive. 
Another pseudo-op you could write would be something like 
.NA for No Assembly which would cause LADS to simply 
search down through source code (taking no actions other than 
building the label array) until it located a .A pseudo-op, turning 
all assembly back on. These .ND, .NA, and .A pseudo-ops aren't 
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built into LADS, but would be easy to add if you felt you'd have 
a use for them. 

Valdec: Number Conversion 

Numbers such as the 15 in LDA 15 are held in ASCII code for¬ 
mat within source programs. In other words, when LADS pulls 
in the 15, it doesn't get the number 15. It gets 1-5 instead. It gets 
the ASCII for 1 and the ASCII for 5: 49 and 53 decimal. (As an 
aside, 1 and 5 are $31 and $35 in hex. It's pretty easy to men¬ 
tally convert ASCII hex to numeric form. Just drop the leading 3 
from any hex ASCII number.) 

What Valdec must do is turn 49 53 into the two-byte num¬ 
ber OF 00 which the computer can recognize and work with. 

This is just a bit more complicated than it might seem. The 
complexity comes from the fact that the 1 in 15 is really 10 times 
1. The Valdec subprogram which handles this ASCII-to-integer 
translation will have to multiply by 10,000 or 1000 or 10 or 1— 
depending on the position of the ASCII digit. We don't need to 
worry about numbers higher than 65535 since ML doesn't often 
need to calculate higher than that. All addresses that the 6502 
chip can reach are within that range, and two bytes cannot hold 
a larger number anyway. Therefore, multiplication by 10,000 will 
take care of any case we might come across. 

And since 10,000 is just 10 X 10 X 10 X 10, we'll really 
only need a way of multiplying by 10 a maximum of four times. 
So all that's really needed is a multiply-by-10 routine that we 
can loop through as often as necessary. Lines 400-550 perform 
this operation. 

But let's start at the start. Anything in LADS which calls 
upon Valdec for its services will have already set up the TEMP 
pointer to point to the first ASCII character in the number to be 
translated. Also, the number will end with a 0 delimiter. (This 
isn't the ASCII 0, which is $30. It's a true zero.) 

Determining Length 

After Valdec finishes, it leaves the results in the two-byte register 
called RESULT. 

First Valdec finds the length of the ASCII number (50-90). 
Our example number, 15, would be two bytes long. Its length is 
stored in the variable VREND, and we then clean out the RE¬ 
SULT register by storing 0 into it (130-150). Then X (not the reg- 
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ister, the variable) is stuffed with a 1 (170) so it can tell us how 
many times to loop through the times-ten routine for each digit. 
As we move from right to left, reading first the 5 then the 1 in 
15, X will be raised. Coming upon the 5, X will be 1, and we'll 
perform no multiplication. The first thing the loop for multiplica¬ 
tion does is DEX, so 1 becomes 0 and we exit the loop (250). 

Coming upon the 1, X will tell us to go through the times- 
ten routine once. In other words, we multiply 1 times 10 for a 
result of 10. This, added to 5, gives the 15 we're after. 

But let's back up to where we were, at VALLOOP (180). We 
can take advantage of the fact that the ASCII code was designed 
so that the lower four bits in each ASCII numeral byte hold the 
actual number: $35 stands for 5. How do we extract the number 
$05 from $35? We could subtract $30. Even simpler is AND 
#$0F. AND turns bits off. Wherever a bit is off in the mask (the 
#$0F in this example), the bit will be off in the result: 


$35 

(ASCII for 5) 

AND OF_ 

(the four high bits are all off. 


the four low bits are on—they 


have no effect) 

$05 

(the answer we're after) 

00110101 

($35, prepared to be stripped of its high bits by) 

AND 00001111 

($0F, the mask, turning bits off where the 0's 


are) 

00000101 

($05, leaving the number we want) 


Here we load in the rightmost character, the 5 in 15, the 
$35 in $31 $35. And strip off the 3, leaving the 5. Then that's 
stored in two temporary variables: RADD and TSTORE. Next we 
fill both of the high bytes of these variables with 0 (220-240). 
That makes them officially correct. Nothing lingers in their high 
bytes to confuse things later when we perform two-byte 
addition. 

Now that our digit 5 is safely tucked away, we need to mul¬ 
tiply it by 10 as many time as necessary. DEX lowers X. With 
this first character, X becomes 0, and we BEQ to the exit (330). 
When we come through this loop next time, holding the 1 in 15, 
X will become 1 and we'll therefore JSR TEN (270) one time, 
making 1 into 10. 

Keeping Track of Position 

After the subroutine TEN has multiplied the number in RADD 
(named for Result of ADDition) by 10, we transfer the result 


114 




Openl, Findmn, Getsa, and Valdec: I/O Management 


from RADD over to TSTORE (280-310). Why the transfer? Be¬ 
cause in the 100's position, a digit would need to be multiplied 
by 10, twice. The 2 in 215 would have to be 2 times 10 times 
10. So TSTORE has to keep a running total of the results 
achieved by the TEN subroutine. TEN uses RADD during mul¬ 
tiplication. Obviously, a second two-byte variable will have to 
keep track of the total as, more than once, we multiply the larger 
digits by 10. 

Another running total, the result of all Valdec's efforts, is 
kept in the variable RESULT. That will ultimately hold our final 
answer. But each time we achieve an interim answer on a single 
digit, we JSR VALADD (350) to add the results of that digit's 
multiplication to RESULT (570-640). 

Meanwhile, back up at line 360, we DEY to point to the 
next higher digit, the digit next to the left. And DEC VREND to 
see if we've reached the end of our ASCII number and cannot 
RTS. If not, we go back up and load in the next digit, continuing 
to add to the running total in RESULT. 

The multiply-by-ten routine called TEN (410) is worth a 
brief examination. Let's imagine that we have put a 1 into RADD 
(200) and we're going through the TEN loop once, multiplying it 
by 10. We clear the carry. ASL shifts each bit in RADD (the low 
byte of this two-byte number) to the left by 1. The interesting 
thing is that the seventh bit goes into the carry. Then we ROL 
RADD + 1, the high byte, which rotates each bit to the left. This 
is the same as the ASL shift to the left. The seventh bit pops into 
the carry. But with ROL, the carry moves into the zeroth hit. A 
combination of ASL ROL shifts all the bits in a two-byte number 
to the left by 1: 

Carry bit high byte low byte 

0 00000000 00000001 (our 1 before ASL low byte, 

ROL high byte) 

0 00000000 00000010 (after) 

You can see that this, in effect, multiplies these bytes by 2. If 
we ASL/ROL again, we get: 

0 00000000 00000100 (the original number, mul¬ 

tiplied by 4) 

At this point, our answer is 4. We've multiplied the original 
1 by 4 with an ASL/ROL combination, performed twice. 

Now we CLC again and add the original number (1) to the 
current result (4), giving us 5 (460-520). It's easy to see that all 
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we need to do now is one more ASL/ROL, which multiplies the 
running total by 2 one more time: 

Carry bit high byte low byte 

0 00000000 00000100 (4) 

+ 0 00000000 00000001 (added to the original 1, 

- gives) 

0 00000000 00000101 (5) 


then, we just ASL the low byte: 

0 00000000 00001010 (10) 


ROL the high byte (which has no effect on this small a number): 

0 00000000 00001010 (giving us 10) 

That final ASL/ROL multiplies 5 times 2, and we've got the 
right answer (530-540). This trick—multiply by 4, add the orig¬ 
inal number, multiply by 2—will work whenever you need to 
multiply a number by 10. Other combinations will multiply by 
other numbers. And as Valdec illustrates, you can calculate pow¬ 
ers of 10 by just running the result through this TEN subroutine 
as often as necessary. 
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260 LDA #2 
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# <FILEN; SET POINTER TO FILENAME BUFFER (FILEN) IN LADS 










615 LDA RAMSTART:STA PMEMsLDA RAMSTART+1:STA PMEM+1 
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465 ; CLOSE OUTPUT PILE 

470 CL0SE2 LDA F0P£N2; CHECK TO SEE IF OUTPUT FILE IS OPEN 
480 BEQ CLQSE4; IF NOT EXIT 
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MATCH (SO GO BACK TO EVAL) 





130 


For the Atari version of Findmn, change line 400 to: 




ETSA" GET STARTING ADDRESS FROM DISK (LEAVES DISK POINTING AT 
*= THIS SPACE (START ADDRESS) 

(EXPECTS FILE #1 TO BE ALREADY OPENED). 
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REPLACES "GETSA" SOURCE CODE FILE TO CREi 












132 


FILE VALDEC" IN LINE 210 IN THIS FILE 









"JSR L0AD1" (INSTEAD OF "JSR OPEN1" 
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TSTORE; STORE IN "REMEMBER IT" REGISTER 

#0; PUT 0 IN BOTH THESE REGISTERS (IN THEIR HIGH BYTES) 






:r. (in the example, x now = 0 for 1 

TO THE X10 SUBROUTINE IN THIS CASE) 
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((N*4+N)*2) IS 
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Indisk: 

The Main Input Routine 


It's up to the Indisk subprogram to pull in a logical line of 
source code and set it up so that Eval can evaluate it. What 
does the word logical mean when used this way? You'll some¬ 
times hear of a ''logical" string or a "logical" line versus a 
"physical" string or line. The logical thing is what the com¬ 
puter will see and compute. The physical thing might well be 
longer or shorter. 

For example, on the Apple, Atari, and Commodore 64, 
the screen permits a physical line of only 40 characters. And 
though each screen line can hold only 40 characters. Com¬ 
modore BASIC can interpret 80-character lines, Apple can 
interpret 256-character lines, and the Atari can interpret 120- 
character lines. The logical line length is 80, 256, or 120 
characters, but the physical line is 40. To describe Indisk's 
routines, we'll need to make a similar distinction. 

Two physical lines of LADS source code might be: 

100 LDA 15: INY:RTS 
110 DEC 15 

but there are four logical lines in these two physical lines: 

LDA 15 
INY 
RTS 
DEC 15 

Put another way, the LADS logical line is sometimes 
smaller than its physical line. The logical item is the piece that 
a computer—or in this case, LADS—will work with. When¬ 
ever you see a colon, you're at the end of a logical line. 

In addition to setting up each logical line for examination 
by Eval, Indisk also performs some other tasks. It sets flags up 
in response to several pseudo-ops; it transforms single-byte 
tokenized BASIC keywords into ASCII words (? becomes 
PRINT); it transforms ASCII hex numbers like $1500 into two- 
byte integers (the same thing the Valdec subprogram does for 
ASCII decimal numbers); and it handles the important .BYTE 
pseudo-op. Indisk is a busy place. It's the second longest 
source file in LADS. Eval interprets logical lines of source 
code; Indisk prepares them for that interpretation. 
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Total Buffer Cleaning 

Indisk starts by cleaning out an entire group of buffers: LABEL, 
BUFFER, BUFM, HEXBUF, FILEN, NUBUFF. That's easy be¬ 
cause they are all stuck together (see lines 290-340 in the 
Tables subprogram). The CLEANLAB subroutine in Eval just 
sticks 0 into the entire string of buffers. 

Then 0 is put into the HEXFLAG (is it a $ type number?), 
BYTFLAG (is it a < or > pseudo-op?), and PLUSFLAG (is it a 
+ pseudo-op?). These three flags will later be set up, if nec¬ 
essary, by Indisk. We want them down, however, at the start 
of our analysis of each logical line. 

At line 110 LADS sees if the previous logical line ended 
in a colon. LADS tries to be forgiving. It knows that the pro¬ 
grammer might accidentally write source code like: 

100 LDA 15: LDX 12 

leaving some spaces between a colon and the start of the next 
logical line. Rather than crash trying to find a label called 
blank-blank-L-D-X, it ignores leading blanks following colons. 
Elsewhere, LADS ignores blanks preceding semicolons. This 
gives the user complete freedom to ignore that potential 
punctuation problem. Logical lines with extra blank spaces 
will be correctly analyzed. 

If a colon ended the previous logical line, we need to skip 
over the fetch-and-store-line-number routine (130-160) since 
there is a line number only at the start of a physical line. In 
BASIC programs, and consequently in LADS source code, the 
two bytes just preceding the start of the code proper in each 
physical line are the line number. They need to be remem¬ 
bered by LADS for printouts and also for error reporting. 

The Suction Routine 

Lines 170-190 are the suction routine for blanks which might 
precede a colon. We just loop here until something other than 
the blank character (#32) is encountered. Notice that this loop 
is also performed at the start of a physical line, but will have 
no effect since the computer removes any leading spaces when 
you first type in a BASIC or LADS line. 

Line 210 is the start of the main loop which pulls in each 
character from the disk, one at a time. We skip over this (200) 
if we've entered at Indisk and therefore are starting a line 
rather than just looking at the next character within a line. 
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But let's assume for now that we're trying to get the next 
character in a line. If it's zero, that means the end of a phys¬ 
ical line (230), so we go to the routine which checks to see if 
we're at the end of the entire program, not just the end of a 
single line. 

If there was no zero, we check for a colon and jump to 
the routine which handles that (260). Then we check for a 
semicolon. The next section (290-750) handles semicolons. 
There are two types of semicolon situations, requiring two dif¬ 
ferent responses. 

One type of semicolon defines an entire line as a com¬ 
ment. The semicolon, announcing that a remark follows, ap¬ 
pears in this case as the first character in a physical line: 

100; THIS ENTIRE LINE IS A REMARK. 

This type is relatively simple since there is no source code for 
Eval to evaluate. 

The other type of remark, though, appears at the end of a 
logical line, and there is something for Eval to assemble on 
such lines: 

100 LDA 75; ONLY PART OF THIS LINE IS A REMARK. 

When we first detect a semicolon (270), we store the Y 
Register in variable A (290). The Y Register is very important 
in Indisk. It is set to zero at the start of each physical line (60) 
and will still be zero in line 290 if the semicolon is the first 
character in a physical line. This is how we can tell which 
type of comment we're dealing with (at the start of a line or 
within a line). 

If, however, the programmer has not requested a screen 
printout, there is no point to storing a comment. Comments 
have no meaning to the assembler; they're just a convenience 
to the programmer. Line 300 checks to see if PRINTFLAG is 
set and, if not, skips over the store-the-comment routine. 

BABFLAG for Comments 

But if the PRINTFLAG was up (contained a 1), we transfer 
that 1 to force the BABFLAG up as well. BABFLAG tells LADS 
that there's a comment to be printed after the source and ob¬ 
ject codes have been printed to screen or printer. 

Then that previously stored Y Register is pulled back out, 
and we see which kind of comment we're dealing with. If Y 
isn't zero, we've got a within-the-line comment, and we can 
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JSR to the PULLREST subroutine which stores comments in 
the comment buffer (350). Then we return to Eval to assemble 
the first part of the line, the source code part (360). 

When a semicolon appears at the start of a line, though, 
we'll just fill LABEL, the main buffer, with the comment and 
then print out that kind of line right here within Indisk. (Print¬ 
outs are normally controlled by Eval following the assembly of 
source code. This type of line, however, contains no source 
code.) 

A little loop (370-440) stuffs the comment line into LABEL. 

It exits when it finds the end of a physical line (380), and it JSRs 
when it comes upon a tokenized keyword like PRINT or 
STOPIT. (STOPIT would appear as three characters in the source 
code: the token for BASIC's STOP command, and the letters I 
and T.) Tokenized words have to be stretched out to their ASCII 
form, or the comment could contain strange nonprinting charac¬ 
ters or graphics characters, etc., when printed out. Any character 
larger than 127 is not a normal alphabetic character. It's going to 
be a token. 

When we finally come upon the end of this physical com¬ 
ment line, we land at PUX1 (450) and proceed to print the line 
number, the comment, and a carriage return just as we do for 
any other line. Then we put 0 into the A variable to let MPULL 
(the retum-to-Eval subroutine) know that there is no source code 
to assemble in this line. It will send us back to two different 
places in Eval, depending on whether we should or shouldn't try 
to assemble the line currently held in the LABEL buffer. 

Storage to BABUF 

The PULLREST routine (520-600) is similar to the PUX routine 
above it, but it stores a comment into the BABUF buffer. 
PULLREST cannot use the LABEL buffer because this is one of 
those lines where the comment comes after some legitimate 
source code. And Eval assembles all legitimate source code from 
the LABEL buffer. After Indisk turns the following line over to 
Eval: 

100 LDX 22; HERE IS A COMMENT. 

the two buffers hold their respective pieces of this line: 

LABEL LDX 22 

BABUF HERE IS A COMMENT. 
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BABFLAG is set up to alert Eval to print a comment after 
it has assembled and printed out the LDX 22 part of this line 
(520). Then the semicolon in the Accumulator is saved in the 
A Register. This is our end-of-line condition. Logical lines can 
also end with colons and zeros. Different end-of-line con¬ 
ditions require different kinds of exits from Indisk. For ex¬ 
ample, if we hit a colon, we shouldn't pull in the next two 
characters and store them as a line number. A colon means 
we've not yet reached the end of the physical line. Since 
PULLREST is used as a subroutine in various ways—JSRed to 
from various places in Indisk—it must save the end-of-line 
condition. 

KEYWAD 

Then PULLREST pulls the rest of the line into BABUF (560-650) 
with a little detour to KEYWAD if the seventh bit is set on one 
of the characters being pulled in. That signals a tokenized 
keyword like ? for PRINT. KEYWAD is the same routine as 
KEYWORD (called above when Indisk is pulling in source code 
characters). The only difference between them is that KEYWORD 
extends ? to the word PRINT in LABEL, the source code buffer. 
KEYWAD extends tokens into BABUF, the comment buffer. 

PULLRX (660-680) is quite similar to PULLREST. However, 
PULLRX is a pure suction routine. It pulls in the rest of a com¬ 
ment line, but doesn't store any of the characters. It is called 
upon when the PRINTFLAG is down and nothing needs to be 
printed to screen or printer. All PULLRX does is get us past the 
comment to the next physical line. 

MPULL (690-750) is the exit from Indisk back to Eval after a 
commented line has been handled. Recall that there are two 
kinds of comments—those which take up an entire physical line 
and those which take up only the latter part of a line, those 
which come after some real source code. MPULL distinguishes 
between them after first checking to see if we're at the end of 
the entire program (ENDPRO). It loads in the A variable. If A is 
holding a zero, that would mean that the semicolon was the first 
character in the physical line, and consequently, the entire line 
was a comment and can be ignored. There's nothing to as¬ 
semble. So we PLA PLA to get rid of the RTS address and JMP 
directly to STARTLINE in Eval to get a new physical line. 
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Y Is the Pointer 

Alternatively, if the semicolon was not at the start of the line, 
the value in the A variable will be higher than zero. (The Y 
Register was stored in A when a semicolon was first detected 
[290].) Y keeps track of which position we are currently look¬ 
ing at within each physical line. In cases where there is some 
source code on a line for Eval to assemble, we just RTS (750) 
back to Eval where the evaluation routine begins. 

The end of the main Indisk loop is between lines 760 and 
950. This section is an extension of the character-testing se¬ 
quence found between lines 220 and 270. What's happening is 
that a single character is being drawn in from the source code 
(on a disk file or within RAM memory, depending on which ver¬ 
sion of LADS you are using). Each character is tested for a vari¬ 
ety of conditions: pseudo-ops, keyword tokenization, hex 
numbers, end-of-line (220), colon (240), and semicolon (270). If it 
was a semicolon, we dealt with it before making any further 
tests. The semicolon (comments) handler is the large section of 
code we just discussed (between lines 290 and 750). If the 
character isn't a semicolon, however, there are several other spe¬ 
cial cases which we should test for before storing the character 
into LABEL, the source code buffer. 

Special Cases 

Is it a > pseudo-op? If so, we go to the routine which handles 
that (770) called HI. Is it the < pseudo-op? Then go to the LO 
routine. Is it the plus sign, signaling the + pseudo-op? If not, 
jump over line 820. The + pseudo-op is handled elsewhere in 
LADS; all we do for now is set up the PLUSFLAG (820). Is it the 
*=, the Program Counter changing pseudo-op? If so, go to the 
subroutine which fixes that (850). Is it one of the pseudo-ops 
which start with a period, like .BYTE or .FILE? If so, go to the 
springboard to the subroutines which deal with these various 
pseudo-ops (870). Is the character a $, meaning that the source 
code number which follows the $ should be translated as a hex 
number? If so, go to the hex number routine springboard (890). 

The final test is for tokenized keywords (? for PRINT). To¬ 
kens all have a value higher than 127, so their seventh bit will 
be set. If the character is lower (BCC) than 127, we can finally 
add the character to the source code line we're building in the 
LABEL buffer (930). Then we raise the Y Register to point to the 
next available space in the LABEL buffer, and return to fetch the 
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next available space in the LABEL buffer, and return to fetch the 
next character of source code from disk or RAM memory (950). 

This ends the main loop of the Indisk routine. As you see, 
there are many tests before a character can be placed into the 
LABEL buffer. We only want to give Eval source code that it can 
assemble. We can't give it characters like . or 4- or $ which it 
cannot evaluate properly. Those, and other special conditions, 
are worked out and fixed up by Indisk before LADS turns con¬ 
trol back to the Eval subprogram. 

The Colon Logical End-Of-Line 

One special condition is the colon. It is handled at the very start 
of Indisk as a new physical line is analyzed (110). Not much 
needs to be done with colons except to ignore them. But we do 
need to prevent LADS from trying to locate the next physical 
line number. Colons signify the end of a logical line, not the end 
of a physical line. COLFLAG tells Indisk not to look for a line 
number. COLFLAG is set whenever a colon is detected (260). We 
jump down to COLON (970) and set the flag. We don't need to 
LDA #1:STA COLFLAG because we wouldn't be here unless the 
Accumulator was holding a colon character (it's higher than 0). 
We can just stuff that character into COLFLAG. As long as a flag 
isn't holding a 0, it's set. When setting flags, it doesn't matter 
that the number in the flag is higher than 1. Just so it's not 0. 

There are two springboards at 990-1020. Recall that branch 
instructions like BNE cannot go further than 128 bytes in either 
direction, so you'll get a BRANCH TOO FAR error message 
from LADS from time to time when you exceed this limit. In 
such cases, just BNE SPRINGBOARD; just branch to a line you 
insert, like 990, which just has a JMP to your true target. 

Like the . pseudo-op interpreter subroutine, the hex trans¬ 
lator is also too far from the branch which tries to reach it. With 
a hex number, though, we first put the $ into the LABEL buffer 
so it will be printed when the source code line is sent to the 
screen or printer. Then we bounce off to the hex translator sub¬ 
routine (1020). 

KEYWORD (1040-1210) translates one of BASIC's tokens 
into a proper English word. A BASIC word like PRINT is a word 
to us programmers, but an action, a command, to the computer. 

To save space, many versions of BASIC translate the words into 
a kind of code called "tokens." The token for PRINT might be 
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the number 153, which can fit into a single byte. The word 
PRINT takes up five bytes. 

But BASIC itself must detokenize when it lists a program. It 
must turn that 153 back into the characters P-R-I-N-T. To do 
that, it keeps a table of the keywords in ROM. We'll take advan¬ 
tage of that table to do our own detokenization. 

The specifics of the example we'll examine here are for 
Commodore computers. The principle, however, applies to Ap¬ 
ple and Atari as well. Only the particular numbers differ. We ar¬ 
rive here at KEYWORD because we picked up a character with a 
value higher than 127. The first thing we do is subtract 127. 

That will give us the position of this keyword in the table of 
keywords. To see how this works, look at how these words are 
stored in ROM memory: 
enDfoRnexTdatA 

Notice that BASIC stores words in this table with their last 
letter shifted, similar to the way LADS stores labels with their 
first letter shifted. That's how the start of each word can be de¬ 
tected. The code for these words is set up so that END = 128, 
FOR = 129, NEXT = 130, and so on. 

Imagine that we picked up a 129 and came here to the 
KEYWORD subroutine to get the ASCII form of the word, the 
readable form. We would subtract: 129 — 127 = 2. Then we 
would look for the second word in the table. We store the results 
of our subtraction in the variable KEYNUM (1060) and keep 
DECing KEYNUM until it's zero and we've thus located the 
word. We look at the first character in the table of keywords. It 
will be an e. If it's not a shifted character, we've not yet come to 
the end of a word, and we keep looking (1120). Otherwise, we 
go back and DEC KEYNUM. All of this is just a way of counting 
through the keyword table until we get to the word we're after. 
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When we find it (1140), we store the ASCII characters from 
the table into LABEL, our main input buffer. Again, a shifted 
character in the table shows us that we've reached the end of the 
word (1160), and we can return to the caller (the routine we 
JSRed here from) after clearing out the seventh bit. 

KEYWORD turns this line (in the source code): 

100 START? LDA [IT (two embedded keyword tokens, ? and [) 
into: 

100 STARTPRINT LDA RUNIT (which we can read from screen or 
printer) 

The HI subroutine (1230) handles the > pseudo-op which 
gets the high byte of a two-byte label as shown in Listing 6-1. 
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This sort of thing is fairly common during the initialization 
phase of an ML program. It prepares for the useful Indirect Y 
addressing mode (sometimes called Indirect Indexed addressing: 
LDA (LABEL),Y). The > and < pseudo-ops make it easy to set 
up the zero page pointers upon which Indirect Y addressing 
depends. 

The adjustments necessary to make these pseudo-ops work 
are performed in the Equate subprogram. All we do here is set 
up the BYTFLAG to show which of them -was encountered. 
BYTFLAG is 0 normally, set to 1 for a < low byte request and 2 
for a > high byte request. Then we go back to fetch the next 
character in the source code. The > and < symbols are not 
stored in the LABEL buffer. 

Don’t Drive with Your Legs Crossed 
The STAR subroutine (1300) deals with the pseudo-op which 
changes the Program Counter. This pseudo-op has one primary 
use: It creates a stable place for tables. Some people like to use it 
to make room for tables within source code (and consequently 
within the resulting object code too). That seems both un¬ 
necessary and dangerous, like driving with your legs crossed. 
Most of the time it won't do any damage, but when it does 
cause problems, it causes a crash. 

If you like to live dangerously, go ahead and stick a table 
or a buffer right in the middle of your code. The *= pseudo¬ 
op allows coding as shown in Listing 6-2. When assembled, 
that risky trick will look like the listing shown in Listing 6-3. 
This example leaves—between $325 and $357—a 50-byte- 
long zone to be used for data rather than instructions. You 
must jump over the table. But what's the point? Why not do 
the sensible thing and put all your tables, register, buffer, 
etc.—all your nonprogram stuff—in one place? At the end of 
the entire program. Not only does that ease your program¬ 
ming task by making it simple to understand what you're try¬ 
ing to do, it also allows the * = pseudo-op to make its true 
contribution to assembling: a stable table. 

When you're assembling a long program, you will often go 
through a two-step process. You'll assemble, then test. The test 
fails. You change the source code and try it again. This assemble- 
test rhythm takes place so often that you'll want to make it as 
easy on yourself as possible. One of your best debugging tech¬ 
niques will involve running your code and then looking in the 
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buffers, registers, variables, and other temporary storage places 
to see just exactly what is there. That's usually the best clue to 
what went wrong. If you are trying to load in the word 
TEXTFILE from disk and your buffer holds EXTFILEO, that tells 
you exactly what you need to do to fix up the source code. 

In other words, you want to be able to check buffers, vari¬ 
ables, etc., often. Where are they located in the object code? Ob¬ 
viously, each time you make a slight change to the source code, 
everything in the object code above the change in memory 
shifts. All the addresses beyond the changed source code will go 
up or down depending on whether you added or subtracted 
something. 

Stabilizing Buffers 

This makes for very unstable addresses. You would never know 
where to PEEK at a particular buffer or variable. 

There are two ways to solve this. You could put the data 
buffers, etc., at the start of your program. That way, they 
wouldn't shift when you changed the source code beyond them. 
But that's somewhat clumsy. That means that your program 
doesn't start with the first byte. The entry to your program is up 
higher, and you can't just SYS or CALL or USR to the first byte. 

An alternative, and likely the best, idea is to put tables at 
the very end. That way the SYS to the object code start address 
is also the first byte of the ML program. But how does this solve 
the shifting tables problem? That's where the * = comes in. 

When I first started to write LADS, I decided to start it at 
$3A00. That left plenty of room below for BASIC-type source 
files and plenty of room above for "Micromon," an extended 
debugging monitor program which sits in memory between 
$5B00 and $7000. (I do all my programming on the venerable, 
but serviceable. Commodore PET 8032.) LADS was expected to 
end up using about 4K of memory, so I forced Tables, the final 
source file, to detach itself from the rest of the program and to 
assemble at $5000. The Tables subprogram started off like this: 
10; TABLES 
20 *= $5000 
30 MNEMONICS etc. 

This kept everything in the Tables unaffected by any 
changes in the program code below it. The entire source code 
could be massaged and manipulated without moving the data ta- 
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bles one byte up or down in memory. A detached table is a sta¬ 
ble table. 

So, during the weeks while LADS was taking shape, I 
learned the addresses of important buffers like LABEL and im¬ 
portant variables and flags. That makes debugging much faster. 
Sometimes, I could tell what was wrong by simply PEEKing a 
single flag after a trial run of the source code. 

A program the size of LADS, a complex game, or any other 
large ML program, will require perhaps hundreds of assemblies. 
It becomes very useful to have learned the special addresses, like 
buffers, where the results of a trial run of your object code are 
revealed. And for this reason, these buffer and flag addresses 
should stay the same from the day you start programming until 
the day the entire program is composed. 

How is the *= pseudo-op handled? Before anything else, 
we pull in the rest of the source code line by a JSR to 
STINDISK, the main loop in Indisk. After that, STAR checks to 
see if anything should be printed out by looking at PASS. On 
pass 1, we'll skip over the printout (1320). Otherwise, we print 
the star and the input line held in the LABEL buffer. We won't 
check to see if a printout is requested by looking at PRINTFLAG 
or SFLAG (screen printout). *= is such a radical event that it 
will be displayed on pass 2 whether or not any printouts were 
requested. 

Then we come to the familiar hex or decimal number ques¬ 
tion. Hex numbers are translated and put into the RESULT vari¬ 
able as they stream in. Indisk does hex. Decimal ASCII isn't 
automatically put into RESULT. If the argument following * = 
was hex, we skip over the next few lines (1380). If not, we look 
for the blank character (in *= 500, the character between the = 
and the 5). Finding that (1420), we point the TEMP variable to 
the ASCII decimal number and JSR VALDEC to give the correct 
value to RESULT. We'll use RESULT to adjust the PC as 
requested. 

Padding the Disk File 

If the programmer wants object code stored to disk, we cannot 
just change the internal LADS program counter. The disk 
drive won't notice that. We've got to pad the disk program: 
We've got to physically send spacer bytes to the disk to move 
its pointer the correct number of bytes forward. Object code is 
stored only on pass 2. 
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Thus, two questions are asked here. Does the programmer 
want object code stored? And is the disk drive a recipient of 
that object code? If the answer to both questions is “yes," we 
JSR FILLDISK (1590), a padding routine we'll come to later. If 
not, the whole issue of disk padding doesn't matter and we 
can proceed to adjust the PC (SA is the variable name of the 
LADS Program Counter) by transferring RESULT into it (1600- 
1630). Then we PLA PLA the RTS off the stack and jump back 
into Eval to get the next physical line. 

ENDPRO is a short but essential routine. After each phys¬ 
ical line we need to see if we've reached the end of the source 
code program. Microsoft BASIC signals the end of a BASIC pro¬ 
gram with three zeros. 

But before checking for those telltale zeros, ENDPRO fills 
the buffers with zeros to clean them (1680-1710). 

Then it pulls in the next two characters. If the second one is 
a zero, we know it's the end of a source file (not necessarily the 
end of a series of chained source files; that's flagged by the .END 
pseudo-op). However, if it is the end of a program file, we flip 
the ENDFLAG up to warn Eval and RTS back to Eval (1790). 
Even though Indisk has discovered that we're at the same last 
line in a file, Eval still has that last line to evaluate and as¬ 
semble. The ENDFLAG won't have any immediate effect when 
we first return to Eval. 

The other possibility is that we won't find the three zeros 
and that this isn't the last line of a file. If it isn't, we just set the 
COLFLAG down because at least we're at the end of a physical 
line. A zero always means that. Then we return to Eval. Indisk 
just pulls in one line at a time. 

Hex Conversions 

HEX is an interesting routine. It is called when Indisk detects the 
$ character. HEX looks at the ASCII form of a number like $0F 
and turns it into the equivalent two-byte integer 00 OF in RE¬ 
SULT. It's similar to the subprogram Valdec which translates an 
ASCII decimal number into an integer. 

HEX operates like a little Indisk. It pulls in characters from 
the source code, storing them in its own special buffer, HEXBUF, 
until it finds either a zero, a colon, a blank, a semicolon, a 
comma, or a close parenthesis character. Each of these symbols 
means that we've reached the end of the hex number. Some of 
them signal the end of a line, some of them don't. Whichever 
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category they fall into, they go to the appropriate routine, DECI 
or DECIT. 

Busy X and Y 

If we're not yet at the end of the hex number, however, the 
character is stored in HEXBUF (1970) for later translation and 
also stored in LABEL for printout. Notice that both the X and the 

Y Registers are kept busy here, indexing their respective buffers. 

Y cannot do double duty because it is farther into the LABEL 
buffer than X; the LABEL buffer is holding the entire logical line, 
HEXBUF is holding only the ASCII number. The two buffers will 
look like this when the source line HERE LDA $45 is completely 
stored: 

LABEL HERE LDA $45 
HEXBUF 45 

LABEL will be analyzed and assembled by Eval. It needs to 
store the entire logical line. HEXBUF will be analyzed only to ex¬ 
tract the integer value of the hex number. Storing anything else 
in HEXBUF would be confusing. 

A hex number which is not at the end of a line goes to 
DECIT (2020) and, the length of the hex number is stored into 
the variable HEXLEN (2020) so we'll know how many ASCII 
characters there are to translate into an integer. Then the final 
character (a comma or whatever) is put into the LABEL buffer. 
Then the JSR to STARTHEX (2050) translates the ASCII into an 
integer in RESULT. A JMP (rather than a JSR) to STINDISK pulls 
in the rest of the logical line and takes us away from this area of 
the code. The assembler will not return to this area. It will treat 
the rest of the line as if it were an ordinary line. 

By contrast, a hex number which is at the end of a line goes 
to DECI (2070), and we store the type of end-of-line condition 
(colon, semicolon, 0) in the variable A. We put the length of the 
hex number into the variable HEXLEN (2090), so we'll know 
how many ASCII characters there are to translate into an integer. 
And we put a 0 delimiter at the end of the information in the 
LABEL buffer. Then the JSR to STARTHEX (2110) translates the 
ASCII into an integer in RESULT. We restore the colon or semi¬ 
colon or whatever (2120) and jump to the routine which pro¬ 
vides a graceful exit (2130). 

ASL/ROL Massage 

STARTHEX turns a hex number from its ASCII form into a two- 
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byte integer. It does this by rolling the bits to the left, pulling the 
number into RESULT'S two bytes, and adjusting for alphabetic 
hex digits (A-F) as necessary. 

The variable HEXLEN knows how many characters are in 
the hex number. It will tell us how many times to go through 
this loop. Before entering the loop, we clean the RESULT vari¬ 
able by storing zeros into it (2140-2160) and set the X Register to 
zero. 

The loop proper is between lines 2180 and 2350, and is 
largely an ASL/ROL massage. Each bit in a two-byte number is 
marched to the left. ASL does the low byte, ROL the high byte. 
ASL moves the seventh bit of RESULT into the carry. ROL puts 
the carry into the zeroth bit of RESULT+1, the high byte. 

As an example of how this ASCII-to-integer machinery 
works, let's assume that the number $2F is sitting in the 
HEXBUF. As ASCII, it would be 2F. But recall that the ASCII 
code simplifies our job somewhat since the number 2 is coded as 
$32. To turn an ASCII hex digit into a correct integer, we can get 
rid of the unneeded 3 by using AND #$0F. 

Alphabetic Numbers 

What complicates matters, however, is those alphabetic digits in 
hex numbers: A through F. For them, we'll need to subtract 7 to 
adjust them to the proper integer value. They, too, will have the 
high four bits stripped off by AND #$0F. 

Let's now follow $2F as it rolls into RESULT. $2F, as two 
ASCII digits in HEXBUF, is: $32 $46 or, in binary form, 

00110010 01000110 . 

HXLOOP starts off by moving all the zeros in RESULT four 
places to the left. There are four ASL/ROL pairs. The first time 
through this loop, just zeros move and there's no effect. Then 
we load in the leftmost byte from the HEXBUF (2260) and see if 
it's an alphabetic digit. This time we're loading in the $32 (the 
ASCII 2), so it isn't alphabetic and we branch (to 2300) for the 
AND which strips off the four high bits: 

00110010 ($32, as ASCII code digit) 

AND 00001111 ($0F) 

00000010 (now a true integer 2) 

The ORA command sets a bit in the result if either of the 
tested bits is set. That's one way of stuffing a new value into 
RESULT: 
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00000000 (RESULT is all zeros at this point) 
ORA 00000010(we're stuffing the integer 2 into it) 
00000010 (leaving an integer 2 in RESULT) 


Next the X index is raised and compared to the length of the 
ASCII hex number (in our example $2F, HEXLEN will hold a 2). 
X goes from 0 to 1 at this point and doesn't yet equal HEXLEN, 
so we branch back up (2350) to the start of the loop and roll the 
2 into RESULT, making room for the next ASCII digit: 


Carry bit 
0 
0 

0 

0 

0 


high byte 
00000000 
00000000 

00000000 

00000000 

00000000 


low byte 

00000010 

00000100 

00001000 

00010000 

00100000 


(our 2 before first ASL/ROL) 
(after) 

(after the 2nd ASL/ROL) 
(after the 3rd ASL/ROL) 
(after the 4th and final ASL/ 
ROL) 


What's happened here is that we've shoved the 2 from the 
low four bits into the high four bits of RESULT. This makes 2 
(decimal) into 32 (decimal), or $20. Why do that? Why make 
room for the next digit in this way? Because the 2 in $2F is really 
a hex $20. It's a digit 2, but not number 2. It's not a number 2 
any more than the 5 in 50 is a 5. This ASL/ROL adjusts each 
digit to reflect its position, and position determines the numeric 
value of any digit. 


Alphabetic Adjustment 

Now it's time to pick up the F from HEXBUF (2260), and since it 
has a decimal value of 70, it is higher than 65, so we adjust it by 
subtracting 7. That leaves us with 63 ($3F). We strip off the 3 
with AND $0F: 

00111111 ($3F, the adjusted ASCII code digit) 

AND 00001111 ($0F) 

00001111 (now a true integer F) 

and then incorporate this F with the $20 we've already got in 
RESULT from the earlier trip through the loop: 

00100000 (RESULT is holding a $20) 

ORA 00001111 (we stuff the F into it) 

00101111 (leaving the integer 2F in RESULT) 

Again, X is raised and tested to see if we're finished with 
our ASCII hex number (2340). This time, we are finished. There's 
nothing more to roll into RESULT so we set up the HEXFLAG. 
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This alerts all interested parties in LADS that they do not need 
to evaluate this argument. The value is already determined and 
has been placed into RESULT, ready to be printed out or POKEd 
as the need arises. Then we return to whatever routine called on 
STARTHEX for its services. 

Pseudo-op Preliminaries 

The important pseudo-op .BYTE is also handled within the 
Indisk subprogram. Any pseudo-op beginning with . comes here 
to PSEUDOJ (2410) first. All of these . type pseudo-ops require 
certain preliminary actions, and the first section of PSEUDOJ 
accomplishes those things. Then they split up and go to their 
own specific subroutines. Most of them end up going to the sub¬ 
program Pseudo. 

PSEUDOJ first tests to see if there is a PC address-type label 
such as the word OPCODES in: 

100 OPCODES .BYTE 161 160 32 96. 

The Y Register will still hold a zero if the . character is de¬ 
tected at the very start of a logical line of source code. That 
would mean that there is no PC-type label and we don't need to 
bother storing it into the label array for later reference. Likewise, 
if this isn't pass 1, we can also skip storing such a label in the la¬ 
bel array. 

But if it is pass 1 and there is one of those labels at the start 
of the line, we need to save the A and Y Registers (2450-2470) 
and JSR EQUATE to store the PC label (and its address) into 
LADS' label array. Then we restore the values of A and Y (2490- 
2510) and store the . character in the main input buffer LABEL. 

If It’s Not B 

The character following the . will tell us which pseudo-op we're 
dealing with, so CHARIN pulls it in and stores it into the buffer 
(2550). If it's not a B, we branch to the springboard PSEUD1 
which sends us to the Pseudo subprogram for further tests 
(3010). 

Now we know it's a .BYTE type, but is it the ASCII alpha¬ 
betic type or the ASCII numeric type? It is .BYTE "ABCDE or 
.BYTE 25 72 1 6? 

There is a flag which distinguishes between alphabetic and 
numeric .BYTEs: the BNUMFLAG. It is first reset (2600), and we 
check both the pass and the SFLAG to deride whether we 
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should print out this line or not. If it's pass 2 and SFLAG is set, 
we print the line number and the PC address. Then we pull in 
more of this source code line until we hit a space character. If 
the character following the space isn't a quote, we know that 
we're dealing with the numeric type of .BYTE, so we branch 
down to handle that at BNUMWERK (2810). 

Otherwise, we take care of the alphabetic type. This type is 
easy. We can just pull them in and POKE them. There's nothing 
to figure out or translate. These bytes are held in the source code 
as ASCII characters and will be POKEd into the object code as 
ASCII characters. The main use for this pseudo-op is to store 
messages which will later be printed to the screen or printer. 

End-of-Line Alternatives 

The active parts of this loop are the CHARIN (2820) and the JSR 
INCSA (2990) or JSR POKEIT (3050). The decision whether to 
simply raise the PC with INCSA or actually POKE the object 
code is based on the test of PASS (2970). The rest of the loop 
(2830-2960) is similar to other tests for end-of-line conditions 
found throughout LADS. We look for a 0 (2830), a colon (2850), 
a semicolon (2880), and a concluding quote (2940). Any of these 
characters signal the end of our alphabetic message. And each 
condition exits in a way appropriate to it. Semicolons, for exam¬ 
ple, require that the comment be stored in BABUF for possible 
printout. To do this, we JSR PULLREST (2900). 

PSLOOP stores each character into LABEL, the main input 
buffer. It also JSRs to the POKEIT routine (in the Printops sub¬ 
program) which both stores the character in any object code on 
disk or memory and raises the PC by 1. Then it jumps back up 
to the start of the loop to fetch another alphabetic character 
(3080). 

Numeric .BYTE 

BNUMWERK is more complicated than BY1, the alphabetic 
.BYTE pseudo-op we just examined. BNUMWERK must not only 
check for all of those possible end-of-line conditions; it must also 
translate the numbers following .BYTE from ASCII into one-byte 
integers before they can be POKEd. It's that same problem we've 
dealt with before: 253 is stored in the source code as three bytes: 
$32 $35 $33. We need to turn it into a single value: $FD. (One 
thing simplifies the numeric type .BYTE pseudo-op. The pro¬ 
grammer can use only decimal numbers in the source code for 
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this pseudo-op. .BYTE $55 $FF is forbidden, although you could 
certainly add the option if you wish.) 

Like a small version of the Eval subprogram, BNUMWERK 
has to have a flag which tells it when to close down. We set this 
BFLAG down (3100) and then put the character in the Accu¬ 
mulator into a buffer called NUBUF. In this buffer we'll convert 
these decimal ASCII numbers into integers. Then we raise X to 1 
and enter the main BNUMWERK loop (3130). 

The BFLAG is tested, and we shut down operations if it is 
set (3140). Otherwise, we pull in the next character and go 
through that familiar series of tests for end-of-line conditions: 0, 
colon, or semicolon. If it is a regular character, we stick it into 
the special BUFM buffer (3250) and check to see what pass we're 
on. On pass 1 we don't do any POKEing or printing out, so we 
can skip that. But on pass 2, we check to see if we've got a space 
character, indicating that we've reached the end of a particular 
number, if not yet the end of an entire line (3360). If the number 
is completely in the buffer, we raise the PC and go back for the 
next number (3320). 

On the second pass, however, we may have to POKE object 
code and also provide printouts. This means that we have to 
both calculate each number for POKEing as well as store each 
number in ASCII form for printouts. We pull the character from 
the BUFM buffer and store it in the printout buffer, LABEL, the 
main input buffer (3340). After that we check again for end-of- 
number or end-of-line conditions (3360-3410) and, not finding 
one, return for another character (3440) after storing the current 
character in HEXBUF. 

An end-of-line condition lands at BSFLAG (3450), which 
alerts BNUMWERK that it should exit the loop after the current 
number in HEXBUR has been analyzed. 

A Huge, and Incorrect, Number 
WERK2 (3480) performs the analysis of a single number. It 
points the TEMP variable to NUBUF where the number is stored 
and JSRs to VALDEC, leaving the value of the number in RE¬ 
SULT. Then the value is POKEd to the disk or RAM object code 
(and the PC is raised by 1) (3550). 

So that nothing will be left over to confuse VALDEC during 
its analysis of the next number, NUBUF is now wiped clean with 
zeros. VALDEC expects to find 0 at the end of an ASCII number 
that it's turning into an integer. If that 0 isn't there, VALDEC will 
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keep on looking for it, creating a huge, and incorrect, answer. 

Then we return to the main loop and look for another 
character, the start of another number (3620). 

Graceful Exits 

There are so many options in LADS that graceful exits from 
routines like BNUMWERK are rather difficult. We cannot just 
simply RTS somewhere. We've got to take into account several 
sometimes conflicting conditions. 

LADS can get its source code from two places: disk or RAM 
memory. The source code can be entirely within a single pro¬ 
gram file or spread across a chain of linked files. LADS can as¬ 
semble hex or decimal numbers from source code (except within 
the .BYTE pseudo-op). The assembler can send its object code to 
four places: disk, screen, RAM memory, or printer. All or any of 
these targets can be operative at any given time. And output can 
be turned on or off at will. No wonder there have to be different 
exits and some testing before we can leave a pseudo-op. We've 
got to figure out what's expected, where the object code is going. 
Finally, the fact that logical lines of source code can end in sev¬ 
eral ways adds one additional complication to the exit. 

BBEND is the start of exit testing for BNUMWERK. On pass 
1 we have to raise the PC one final number (3650). If the line 
ends with a colon, we cannot go to ENDPRO and look for a 
new line number, since colons end logical, not physical, lines of 
source code (3680). In either case, we set the COLFLAG up or 
down, depending on whether or not we've got a colon-type end¬ 
ing to this logical line (3700). We then raise the LOCFLAG to tell 
Eval to print a PC-type address label and PLA PLA, pulling the 
RTS off the stack in preparation for a JMP back to Eval. If it's 
pass 1 or if the printer printout flags are down, we don't need to 
print anything, and we JMP into Eval at STARTLINE to fetch a 
new line of source code (3790). 

Alternatively, if it's pass 2 or if the PRINTFLAG is up, we 
go back into Eval at PRMMFIN where comments following 
semicolons are printed (3780). 

FILLDISK (3810) takes care of a problem created by using 
the *= pseudo-op with disk object code files. Recall that if you 
wrote source code like: 

10 *= 900 
100 START INY 
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110 *= 950; leave room here 
120 INX; continue on 

LADS would normally store the INY and follow it immediately 
on a disk file with INX. The PC variable (SA) within LADS 
would have changed. The INX object code being POKEd to 
RAM would be stored correctly at address 950. But the INX 
would go to disk at address 901. The disk is receiving its object 
code bytes sequentially and doesn't hear about any PC changes 
within the computer during assembly. 

FILLDISK subtracts the old PC value from the new adjusted 
PC value and sends that number of filler bytes to a disk object 
file. In the example above, 900 would be subtracted from 950, 
and 50 bytes would be sent as spacers to the disk. This creates a 
space between INY and INX, a physical space, which will cause 
the object file to load into the computer with the correct, ex¬ 
pected addresses for each opcode. 

A secret is revealed here. There are two full passes, but 
LADS starts to try for a third pass. It is quickly shut down be¬ 
cause during this pass the ENDFLAG is up and STARTLINE will 
detect it. Nevertheless, we cannot store more bytes during this 
brief condition. Bytes must be stored only on pass 2, not on pass 
1 or that temporary attempt at a pass 3 (3840). 

Starting the Countdown 

If FILLDISK is called upon to act, however, it acts. The disk ob¬ 
ject file (file #2) is opened (3860), and the old PC is subtracted 
from the new one (3880-3940). The Accumulator is loaded with a 
0 and we start the countdown; the result of our subtraction, in 
the variable WORK, is decremented for each 0 sent to the disk 
object file (3960-4000). If WORK hasn't counted down to zero, 
we continue with this loop (4010 and 4030). Finally, we restore 
the normal I/O and then return to the caller. 

The final subroutine on Indisk is functionally identical to 
KEYWORD. It turns a token into an ASCII word (turns ? to 
PRINT), but it sends its results to the BABUF buffer which stores 
all comments. KEYWORD sends its results to the main buffer 
LABEL for source code lines. To follow the logic of this sub¬ 
routine, see the discussion of KEYWORD earlier in this chapter 
(line 1040 on). 

Now we can turn our attention from LADS input to LADS 
output. The bulk of the next chapter explores the four destina¬ 
tions of assembled code: screen, printer, disk, or memory. 
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240 MOI1 CMP #58; IS IT 














620 JSR KEYWAD; OTHERWISE 
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870 BEQ PSEUDOO; FOUND PSEUDO-OP 









900 CMP #127; NOT A KEYWORD (7TH BIT NOT UP) 
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Program 6-2. Indisk, Apple Modifications 
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Math and Printops: 

Range Checking and 
Formatted Output 


Math, a short subprogram, has a rather limited job. It is de¬ 
signed to turn the ASCII number following the + pseudo-op 
into a two-byte integer and to save it in the variable 
ADDNUM. Later, when the final RESULT is calculated by the 
Valdec subprogram, anything in ADDNUM will be added to 
RESULT. Math responds to a source code line like: 

100 SCREEN = $0400 

120 LDA SCREEN+ 256; this would assemble as $0500 

As with the .BYTE pseudo-op, the + pseudo-op allows 
only decimal numbers as an argument following the +. 

The first loop in the Math subprogram simply looks along 
the LABEL buffer to locate the +. Thus, it doesn't matter if 
the + is right next to its label. You could write 
SCREEN +256 as well as SCREEN + 256. However, find¬ 
ing the +, the subroutine expects to find no spaces between 
the + and the number to be added, +256 is correct. + 256 
would be incorrect. This allows us to test for a variety of end- 
of-number conditions. That means that you can use the + 
pseudo-op within such addressing modes as LDA 
(SCREEN + 256),Y or LDA 1500 +25,Y. 

Each character following the + is stored in HEXBUF for 
later translation by Valdec. Each is also tested to see if it is a 
nonnumber—if it is outside the range from 47 to 58, the 
ASCII code for the digits 0-9. Anything outside that range 
ends our storage of the number to be added, and we go down 
to put the number into ADDNUM. 

Range checking is simple enough. Just remember to test 
against a number which is one lower than the low end and 
one higher than the high end of the range. For example, to see 
if a number is lower than $30, you must test against $2F. 
That's because BCC tests for lower than. $30 wouldn't be 
lower than $30. The same thing works on the high end. To 
test for numbers higher than $39, you CMP #$3A. 

After the number is set up in HEXBUF, we point TEMP to 
it, JSR to Valdec, and move the result from RESULT into the 
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variable ADDNUM. It will wait there until, on pass 2, the Ar¬ 
ray subprogram makes the addition adjustment in line 1160. 

Printops: The Output Routine 

One important function performed by the Printops sub¬ 
program is raising the PC (Program Counter). A subroutine 
called INCSA (650) increases the PC by one for each object 
code byte, whether this byte is an opcode or the argument of 
an opcode. Printops' other main job is to send each byte of 
object code to one of four places: RAM memory, disk, screen, 
or printer. 

Because each object code byte can go to any one, or all, of 
these four different destinations, there are a series of tests and 
parallel routines within Printops. For one thing, Printops has 
little to do on pass 1—it does raise the PC, but nothing is 
POKEd anywhere or printed to screen or printer until the sec¬ 
ond pass. 

Also, Printops has three entry points, depending on 
whether the Eval subprogram has assembled a one-, two-, or 
three-byte logical line. An INY would only JSR from Eval to 
FORMAT, right at the start of Printops. FORMAT loads the 
OP (opcode) and stores it and prints it as required. It's a 
single-byte event. LDA 15 first JSRs to FORMAT to output the 
opcode, the numeric equivalent of LDA, then enters at 
PRINT2. LDA 1500 would JSR FORMAT to send the opcode, 
then enter at PRINT3. These entry decisions are made by Eval 
after it has determined whether it's dealing with a one-, two-, 
or three-byte addressing mode. 

FORMAT (20) simply raises the PC by one. It does this 
with a JSR to INCSA (40) on pass 1. On pass 2, however, it 
also checks to see if screen printout was requested (60). If so, it 
restores normal I/O and prints the number (120). As we will 
see, PRINTNUM also prints to the printer, if that was re¬ 
quested. Then the opcode is POKEd to disk or RAM, if that 
was requested. The POKEIT subroutine performs POKEs to 
RAM. POKEIT also leads right into INCSA to raise the PC 
automatically following each POKE. Finally we RTS back to 
Eval (160). So much for a single-byte addressing mode. 

Two-Byte Addressing Modes 

PRINT2 (180) handles LDA 15 and other two-byte addressing 
modes. Like FORMAT, pass 1 only results in a JSR INCSA (to 
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raise the PC). Pass 2 follows the same pattern as FORMAT, 
explained above. The major difference is that the number 
fetched before the JSR to PRINTNUM comes from the low 
byte of the RESULT variable (240) rather than OP. This is a 
single-byte argument addressing mode. 

PRINT3 (290) parallels the two previous routines, except 
that it handles a two-byte argument. On pass 1 it JSRs to 
INCSA twice to raise the PC by two. 

On pass 2, it prints (370) and POKEs (390) the low byte of 
RESULT if requested and then prints (460) and POKEs (480) 
the high byte of the argument, RESULT+1. A formatting 
problem is handled in line 420. HXFLAG shows whether or 
not output to screen and printer is supposed to be in hex. If 
this flag is set, we don't need to print a space between the low 
and high bytes of the argument. The hex printing routine will 
do that for us. If printout is in decimal, though, we need to 
print a space (440). 

Creating an Object Program 

POKEIT (490) stores the byte in the X Register at the current 
PC address if the POKEFLAG is up. This flag indicates that 
the programmer used the .O pseudo-op, requesting that object 
code be stored in RAM memory during assembly. For both 
PRINTNUM and POKEIT, the X Register is holding the 
opcode or argument. X is saved in the variable WORK+1; 
some of the disk management routines below will change the 
value of X, so we must preserve it for later use. 

Then the DISKFLAG is checked (550). It indicates that the 
programmer used the .D pseudo-op, asking that an object code 
program file be created on disk during assembly. If not, we 
just go down to raise the PC at INCSA (560). 

But if an object program is being created on disk, LADS 
opens communication to file #2 (the write-to-disk file) and 
recovers the byte from WORK+1 (600). The PRINT in 610 
will not go to screen or printer. Rather, the current channel is 
open to the disk object file and PRINT therefore sends the 
byte in the Accumulator to the disk. Then normal I/O is re¬ 
stored, and file #1 is accessed again. File #1 is the normal in¬ 
put source for LADS, the read-from-disk channel. Finally, we 
fall through to INCSA (650). 

Although it is one of the simplest events in LADS, INCSA 
is also one of the most important. On both passes, INCSA 
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raises the PC by 1 for each opcode byte and for each argu¬ 
ment byte. Much depends on the fact that INCSA keeps the 
Program Counter accurate during assembly. A single ignored 
byte would throw off all address-type labels which followed. 
(The HERE in 100 HERE LDA 15 is an address-type label.) In 
consequence, the entire assembled object program would be 
useless. INCSA just adds 1 to SA (the variable which holds 
the LADS internal Program Counter). Notice lines 690-710. 
They add 0 to the high byte of SA. What's the point of that? 

The 256th Increment 

For every 255 increments, INCSA will have nothing to add to 
the high byte of SA. But on the 256th increment, it must add 
1 to the high byte. How does adding 0 to the high byte add 1 
to it? The carry flag. ADC means ADd with Carry. If the carry 
flag is set, the high byte is incremented. If the low byte is 
holding 255 when we add 1 to it (670), that will set the carry 
flag. 

The rest of the routines in this Printops subprogram handle 
the printout of a variety of things: messages, spaces, numbers, 
the PC address, a carriage return, a source code line number, a 
source code line, or an error message. And each of these print- 
to-screen routines has a sister routine. There is a parallel series of 
routines which print the same thing to the printer. 

PRNTMESS (740) will print any ASCII message. There are 
two special requisite preconditions: The message must be pointed 
to by the variable TEMP, and the message must end with a 0. 
PRNTMESS is a simple loop, but it can print any message you 
want. First the Y Register is set to 0 to act as an index to the 
message within LADS' source code. Then the loop begins (750) 
by loading in a character from the message (750). If the character 
is 0, we exit the loop. Otherwise, the character is printed to the 
screen. Then we JSR to the sister routine, PTP, which will send 
the same character to the printer, if requested (780). The Y Reg¬ 
ister is raised, and we go back for the next character (800). 

PRINTSPACE (820) simply prints a space character to the 
screen and then checks with its sister routine, PTP, to see if the 
space should also be printed on the printer. 

Before printing a number, we first put it into the X variable 
for safekeeping. Then LADS has to make four tests: Is it printout 
to screen or to printer, and is it in decimal or in hex numbers? 
PRNTNUM (860) takes advantage of a routine in BASIC ROM if 
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LADS' printout is in decimal (requested with the .NH, no hex, 
pseudo-op). When you ask BASIC to list a program, it turns inte¬ 
ger bytes into printable ASCII numbers to provide line numbers 
on the screen. On Commodore computers, the high byte of the 
integer is put into the Accumulator, the low byte into the X Reg¬ 
ister, and you JSR to within BASIC ROM where this routine re¬ 
sides (950). In LADS, the address of this ROM routine is called 
OUTNUM. It's defined for each different computer model in the 
Defs subprogram. 

Hex Default 

LADS' default, and probably the most common way to print out 
numbers during an assembly, is hex. LADS itself handles hex 
printing. If the HXFLAG is up (870), we JSR to HEXPRINT, a 
subroutine at the end of the Printops subprogram. We'll get to it 
in a minute. It's the opposite of the HEX subroutine within the 
Indisk subprogram which changes hex numbers in ASCII format 
into integers. The HEXPRINT routine will take an integer and 
turn it into hex ASCII characters for printout. 

After the number has been printed to the screen, we JSR to 
the sister routine PTPNU (910) to also print it to the printer if 
necessary. Then the number is restored to the X Register from 
the X variable (920) before returning to the caller. 

PRNTSA (990) is similar to PRNTNUM. The main dif¬ 
ference is that PRNTNUM always prints the single byte sent to it 
in the X Register. By contrast, PRNTSA prints the two bytes in 
SA, the Program Counter variable. The same four possibilities 
are tested: printer, screen, hex, or decimal. PRNTSA's sister rou¬ 
tine, PTPSA, is called upon from both the hex (1050) and the 
decimal (1100) versions of this routine. 

PRNTCR (1120) prints a carriage return; the 13 is the ASCII 
code for carriage return on both the screen and a printer. 
PRNTLINE (1160) prints out a line number from the source code. 
As each physical line is drawn into view by LADS, its line num¬ 
ber is stored in the LINEN variable. This routine also uses that 
OUTNUM routine from BASIC ROM which prints BASIC's line 
numbers during a LIST. Line numbers, in BASIC or LADS, are 
always decimal. PTPLI (1190) is the sister routine for printer 
printouts. 

PRNTINPUT (1210) prints the contents of the main buffer. 
Those contents will be the most recent logical line of source code 
as it appeared in the source code. It uses the PRNTMESS routine 


183 




Math and Printops: Range Checking and Formatted Output 


which sends to the screen any ASCII message which is pointed 
to by the TEMP variable. The line must end in 0. PRNTMESS 
(740) handles the printer with the PTP, single-character, test. 
There is no need for a sister routine within PRNTINPUT. 

Error Alert 

ERRING (1280) performs the preliminaries to an error message 
printout. Such messages as SYNTAX ERROR or NAKED LABEL 
are triggered at various places within LADS. But most of them 
JSR to ERRING before printing out their particular messages. 
ERRING rings the bell first. The number 7 is the ASCII code 
which rings any bells attached to computers or printers. (This 
works on Apple and PET/CBM computers; the 7 is changed to 
253 in the Atari version to produce the same result. The VIC 
and Commodore 64 have no “bell," so the character 7 will 
have no effect on those computers.) The purpose of the bell is 
to alert the programmer that an error has been detected. True, 
the error message will appear onscreen, but during an assem¬ 
bly of a large program, the programmer might well miss silent 
error messages sliding up the screen. 

On Commodore computers, the character 18 reverses the 
field of all subsequent characters on a line. This, too, highlights 
errors. Next (1320), the logical line of source code where the er¬ 
ror appears is printed, followed by a carriage return. 

It would be simple to make error reports more dramatic. 

You could stop assembly at that point with a key-testing loop 
that required the programmer to hit any key to continue. You 
could JSR FIN and exit to BASIC mode, aborting all further 
assembly. You could JSR PRNTLINE to emphasize the line num¬ 
ber in the source code where the error happened. You could ring 
the bell ten times. As with all other aspects of LADS, you can 
make it do what's efficient for you, what's responsive to your 
own style of programming. Add some special effects here if you 
wish. Then reassemble your customized version of LADS. 

Sister Print Routines 

The next few routines are the printer routines: Each is a parallel, 
sister routine to one of the screen routines discussed above. Each 
tests the PRINTFLAG and returns if the flag is down, indicating 
that the user did not request a printout on paper. If the 
PRINTFLAG is up, output is redirected to the printer (1450-1470) 
by opening a file channel to the printer. On Commodore 
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computers, the printer is device #4. Then OUTNUM or PRINT 
or HEXPRINT sends the characters or numbers to the printer 
(1490, 1680, 1720, 1900, 1960, 2130). After that, normal I/O is re¬ 
stored (1500) and a channel is reopened to file #1, the input- 
source-code-from-disk mode. 

To follow the logic of PTP (1380), PTPNU (1560), PTPSA 
(1780), or PTPLI (2020), just look at the parallel routines which 
JSR to them. The purpose, the tests, and the logic are the same. 
The only difference is that the sister routines described above 
route their characters to the screen. These routines send charac¬ 
ters to a printer. 

Printing Hex Numbers 

The subprogram Printops concludes with HEXPRINT, an in¬ 
teresting routine which converts a one-byte integer into an 
ASCII hex string that can be printed to screen or printer. 

HEXPRINT operates on a single byte at a time. The byte is 
first stored temporarily on the stack with PHA (2200). Let's use 
$4A as an example. The four high bits are stripped off with 
AND #$0F, leaving $0A. That's one of the characters we need to 
print. Then we can use a short, simple lookup table to extract the 
character by its position in the table. In the Tables subprogram is 
a minitable called HEXA (270). It looks like this: 

270 HEXA .BYTE "0123456789ABCDEF 

Since the number $0A (10 decimal) is also the tenth 
character in this table, we can just move the ANDed $0A over 
to the Y Register (2220) and load HEXA,Y to fetch the ASCII 
character for $0A, which would be 65 (the letter A). We can 
stick this character into the X Register; X isn't being used else¬ 
where in this routine, so it can save the character for us while 
we look at the high bits. 

this time we move the four high bits right over on top of the 
four low bits. This takes four logical shifts right (2270-2300). 
After LSRing $4A we get $04. Again, we TAY and load the 
character 4 from the table (it's 52 decimal). We print this. In 
$4A, the 4 comes first. Then we recover the A character from 
the X Register and print it right after the 4 (2350). 
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ASCII NUMBER (AS DELIMITER) 











Math and Printops: Range Checking and Formatted Output 
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POKE THE OPCODE INTO RAM/DISK MEMORY 







WE SKIP INCSA (SEE LINE 20 ABOVE) 










to ram/disk 
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740 PRNTMESS LDY #0; PRINT A MESSAGE (ERRORS USUALLY) TO 
750 MESSLOOP LDA (TEMP) , Y; THESE MESSAGES ARE DELIMITED I 
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SA? PRINT SA (DECIMAL VERSION) 
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1970 FINPTPSA JSR CLRCHN 
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2280 LSR; (10101111 BECOMES 00001010, FOR EXAMPLE) 







RINT; PRINT HIGH VALUE (FIRST) (A HOLDS HIGH VALUE AFTER LINE 2280) 
(X HELD LOW VALUE AFTER LINE 2210) 


Math and Printops: Range Checking and Formatted Output 
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Pseudo: 

I/O and Linked Files 

All pseudo-ops except .BYTE (and in-line ones like #< or +) 
are handled by the Pseudo subprogram. Eight pseudo-ops are 
tested for at the start of Pseudo (50-300). They are: .FILE, 
.END, .D, .P, .N, .0, .S, and .H. These tests and the asso¬ 
ciated JMPs are identical to an ON-GOTO multiple branch 
structure in a BASIC program. The rest of the Pseudo sub¬ 
program is a collection of subroutines which service these 
various pseudo-ops. 

If an unrecognized pseudo-op appears within the source 
code, an error message is printed out (340-460). If something 
like .X or .MAP appears, the line number, the start address, 
and the source code line are printed (350-390). The variable 
TEMP is set to point to the SYNTAX ERROR message in the 
Tables subprogram, and that message is sent to screen, and 
possibly printer, via the PRNTMESS subroutine (440). A car¬ 
riage return is printed (450), and we return to the Eval sub¬ 
program after pulling all the characters of the current source 
code line. The subroutine PULLINE does this (460). 

Assuming, however, that LADS came upon the legitimate 
pseudo-op .FILE during an assembly, lines 480-830 take the 
necessary action. .FILE appears at the end of a subprogram. It 
tells LADS that another subprogram is linked to the one just 
assembled and that the source code within this next sub¬ 
program is to be assembled next, as an extension of the cur¬ 
rent subprogram. The current source code file will need to be 
shut down, and the next linked file will need to be opened for 
business. The next linked file is the one called NAME, for 
example, in .FILE NAME. 

Linking with .FILE 

The FILE subroutine starts off by looking for a blank character 
following the .FILE pseudo-op word (480-510). Locating a 
blank, it can now store the name of the next file of source 
code. It pulls in the name, one character at a time, looking for 
an end-of-line 0 (540) or a byte with the seventh bit set (a 
tokenized keyword which needs to be stretched out into a full 
ASCII word). Then each character in NAME is stored in the 
main buffer (590) as it comes in from the source code. 
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When an end-of-line 0 is encountered, the whole filename 
has been stored in LABEL, the input buffer. And—since Y was 
counting the number of characters and helping store them in 
the right place in the buffer—Y now holds the number of 
characters in the filename, its length. We store Y in the 
FNAMELEN variable which will be needed by the DOS (Disk 
Operating System) when the OPEN1 subroutine tries to open 
or load a program file on the disk. 

Now the filename is moved from the LABEL buffer to the 
FILEN buffer (630-680). Why not just store the name in the 
FILEN buffer in the first place? First, because the printout 
routines get their characters and words from LABEL, the main 
buffer. Second, because there might be a keyword, a 
tokenized, abbreviated BASIC command within a filename. 

The filename might be END or IFNOT. And KEYWORD, our 
detokenization subroutine, acts upon words in LABEL, the 
main buffer. So, rather than make a separate KEYWORD 
detokenization subroutine for each buffer, it's easier to bring 
words into the main buffer first, detokenizing them on the fly. 
Then move them. 

But why, then, not have the OPEN1 subroutine look to 
the main buffer for its filenames? That way, the names 
wouldn't need to be moved to FILEN, a separate buffer. True 
enough, but it helps me and, I suspect, many other pro¬ 
grammers to keep things separated by function. 

It takes only 14 bytes in LADS to move the filename from 
the main buffer to the filename buffer. It adds only a few 
microseconds during assembly time since .FILE is a relatively 
rare event. It won't happen more than a few times during an 
entire assembly. It's nowhere near the heavy action of the 
innermost loops of LADS where every event counts, where 
every improvement in logic results in a noticeable improve¬ 
ment in speed. So memory use or speed efficiency is not really 
worth bothering with here. If it's easier for you to visualize the 
actions of a program (and make sure there are no unwanted 
interactions), use as many buffers and variables as you want. 

Printing Addresses 

The next section of this FILE subroutine prints out to screen or 
printer (690-740). Pass 2 doesn't print the starting address of 
each linked file. That's one way to tell which pass is currently 
being assembled. Change the LDA PASS in line 690 to LDA 
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#0 if you want the address printed on both passes. The 
PRNTSA subroutine (from Printops) prints the address in 
RAM memory where the first byte in the new file will be 
assembled. PRNTINPUT prints the filename from the main 
buffer. Then a carriage return prepares for the next screen (or 
printer) line (740). The whole thing looks like this on the 
screen: 

470A NAME 
49FF NEXTNAME 

If the .S and .P pseudo-ops are turned off, nothing will be 
printed to the screen during an assembly except for this list of 
linked files and their object code addresses. That's the fastest 
way to assemble any source code. Printing during assembly 
takes up a considerable amount of time. 

The OPEN1 closes the old source code file and opens the 
new one. OPEN1 is found in the subprogram of the same 
name. Next, the computer's input channel is switched to file 
#1, the input-from-disk channel, and two bytes are pulled off 
the newly opened source code program file. (These first two 
bytes are, in the Commodore DOS system, ignorable.) Then 
ENDPRO gets us in position to analyze the first line in this 
new source code file (800). Finally, the ENDFLAG is set down 
because there's obviously more code to assemble. We return to 
line 80 where the RTS (back to the Indisk subprogram) is 
pulled off the stack, and we JMP directly back into the Eval 
subprogram to pull in the first source code line of the newly 
opened file. 

The .END Link 

The .END pseudo-op is quite like the .FILE pseudo-op. It serves 
to link the last file in a chain to the first file: 

PROG1 (ends with .FILE PROG2) 

PROG2 (ends with .FILE PROG3) 

PRGG3 (ends with .END PROG1, pointing back to the original 
file) 

This way, the assembler can go through two passes. 

.END starts off by printing the word .END (850-940). Then 
it borrows a good section of the FILE subroutine above the 
JSRing to line 520. Most of the events in FILE now take place: 
The name of the new program file is stored in the two buffers, 
the file is opened, ENDPRO puts us in the right spot to look for 
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a new line, and so on. When we return to the END subroutine 
(970), .END's most important work is now performed: On pass 
1, the ENDFLAG is left down (980). But on pass 2, the 
ENDFLAG is sent up, and that will quickly cause the Eval sub¬ 
program to shut the entire LADS engine down. 

But if this is pass 1, another very important thing happens: 
Pass 1 is changed into pass 2. The PASS flag itself is set up 
( 1000 ). 

The original starting address is now retrieved from the TA 
variable and restored into SA, the main Program Counter vari¬ 
able. This starts us off on the second pass with the correct, orig¬ 
inal starting address for assembling the object code. The JSR to 
INDISK gets us pointed to the first true line of source code in 
that first program file (past the * = symbol), and we RTS back 
up to line 140 which exits us from this subprogram the same 
way that the .FILE pseudo-op exits. 

Assembly to Disk Object File 

The .DISK pseudo-op is an important one: It makes it possible 
to store the object code, the results of an assembly, as a pro¬ 
gram on disk. In a way, it's the opposite of .FILE. .FILE pulls in 
source code from a program file already on the disk; .DISK 
sends out object code to a new program file being actively cre¬ 
ated during the assembly process. 

On pass 1, nothing is stored to a disk object file, so we 
branch to PULLJ which is a springboard to PULLINE. 

PULLINE pulls in the rest of a logical line and prepares us to 
look at the next logical line. 

On pass 2, however, all object code is stored to a disk ob¬ 
ject file if the .D NAME pseudo-op has been invoked. This 
storage happens character by character, just the way that object 
code is sent to the screen or printer. But before these bytes can 
go into a disk object code file, the file must be opened for writ¬ 
ing on disk. 

One character is pulled off the source code, moving us past 
the space character in .D NAME and pointing to the N in 
NAME. A little loop (1130-1210) stores the NAME of the object 
file into the main buffer (for printouts) and into the filename 
buffer, FILEN, simultaneously. Meanwhile, if any tokenized 
keywords are detected (seventh bit set), we're directed to trans¬ 
late them to ASCII characters via a JSR KEYWORD (1170). This 
accomplished, we add ",P,W" onto the end of the filename. 
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That's Commodore-specific; it tells the DOS that this file is to 
be a Program/Write file. 

At this point, Y holds the length of the filename, and it's 
then stored in the proper zero page location (1350) for use by 
the DOS in opening this write file. Now the main input line, 
the filename, is printed out, and the DISKFLAG is set up 
(1380). That tells LADS to always send object code bytes to this 
object file on pass 2 when it has finished assembling each logi¬ 
cal line. 

An Abnormal Program 

The routine OPEN2 in the Openl subprogram will now open 
the write file on disk (1390), and the channel to that file is made 
the main output channel at this point (1400-1410). Whatever is 
PRINTed will now go to the disk write file. And the first two 
bytes of a program file tell the computer where in RAM mem¬ 
ory to load a program file. Normally, for a BASIC program, this 
load address would be the start of RAM, the start of BASIC's 
storage area for programs. But this is an abnormal program. It's 
machine language; it could go anywhere in RAM. We therefore 
need to tell the computer what the starting address of this 
particular program is. 

At the very beginning of LADS, the start address is pulled 
from just beyond the source code's *= symbol. That symbol 
must be the first item in any source code. The start address is 
then put into several variables. SA, the Program Counter, gets 
it, but will keep raising it as each logical line is assembled. SA 
is a dynamic, changing variable. TA also gets the start address. 
TA is a "variable,'' but never changes. Its job is to remember 
the starting address all through the assembly process. Perhaps 
TA should be called a constant rather than a variable, but the 
term variable is generally used in computing to refer to both 
types of "remember this" storage places. 

TA Remembers 

In any event, TA will always know where we started assem¬ 
bling. So TA is sent to the disk object file as the first two bytes 
(1420-1450) and then normal I/O (input from disk source file, 
output to screen) is restored (1460-1470). Now a disk error is 
checked for, and we prepare to look at the next logical line via 
JSR ENDPRO (1500). The RTS is pulled off the stack (it would 
want to send us back to INDISK), we set the ENDFLAG down 
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and JMP back to Eval to analyze the next line of source code 
(1550). 

The PRINTER subroutine responds to a .P pseudo-op. It is 
ignored on pass 1, but on pass 2 the file to the printer is 
opened (1590), and the PRINTFLAG is raised. Normal I/O is 
restored, and we “fall through" to PULLINE, the subroutine 
which keeps sucking bytes off the current logical line until the 
end of that line is reached. These bytes are ignored. That's why 
pseudo-ops should be the only thing on any physical line. Any¬ 
thing following a pseudo-op is sucked in and ignored. 

The PULLINE routine finishes when a colon or a 0 is de¬ 
tected. The exit back to STARTLINE in Eval is prepared for by 
the PLA PLA which throws away the RTS (caused by JSRing to 
Pseudo from within Indisk). The only difference between a 0 
(end-of-physical-line) and a colon (end-of-logical-line) condition 
is that a 0 requires that we skip over some link bytes in the 
source code. 0 requires that we first clean off these link bytes 
by a JSR to ENDPRO (1700). ENDPRO is also necessary in the 
event that the end of a physical line is also the end of the 
source code file itself. ENDPRO would detect that. 

The .O pseudo-op notifies LADS that you want object code 
stored into RAM memory during assembly beginning at the 
start address * = . This is relatively simple: We just print out the 
.0 (1770-1800) and set up the POKEFLAG. (Elsewhere in 
LADS, the POKEFLAG is queried to determine if object code 
should be sent to RAM.) Then we exit via PULLINE. 

Turning Things Off 

The .N pseudo-op turns things off. It can turn four things off: 
printer printout, RAM object code storage, screen printout, and 
hexadecimal printout. If .N is detected in the ON-GOTO sec¬ 
tion of Pseudo above (110-320), we are sent here for another 
ON-GOTO series of tests (1880-1960). Of course, none of these 
forms of output are triggered on pass 1, so they don't need to 
be turned off on pass 1 either. But on pass 2, we are sent to 
one of the four tum-it-off routines below. 
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NIXPRINT (1980) first notifies us that the .NP pseudo-op 
has been detected in the source code by printing the .NP. Then 
the PRINTFLAG is lowered (2050), and a carriage return is sent 
to the printer. This is in case you should want the printer 
turned on again further along in the source code. (You would 
turn it on with the .P pseudo-op.) The first line of a reactivated 
printout must appear on a new line, not as an extension of the 
previous printout. 

Then the printer is turned off with JSR CLOSE (this close- 
down-a-file routine is in the Openl subprogram), and we exit 
via PULLINE (2160). 

The next three turn-it-off pseudo-ops are simple, and virtu¬ 
ally identical. NIXOP prints .NO and sets down the 
POKEFLAG. NIXHEX prints ,NH and sets down the HXFLAG 
(causing decimal to become the number base for opcode print¬ 
outs to printer and screen). NIXSCREEN prints .NS and sets 
down the SFLAG. Each routine exits via PULLINE described 
above. 

Disk Error Trapping 

DISERR (2510) checks for an error in disk operation. It could be 
JSRed to from any place in LADS where you suspect that 
things aren't likely to go well with the disk. Disk drives differ 
considerably in their reliability: An unabused Commodore 4040 
drive is usually good for years of error-free performance; many 
of the Commodore 1541 single-drive units, especially the earlier 
ones, are perhaps best described as sensitive. In any case, how 
often you feel the need to JSR DISERR for a report on the 
disk's success in completing an operation will depend on how 
often your drive is the cause of problems during your other 
programming experience. 

For Commodore computers, a simple check of the ST (sta¬ 
tus) byte in zero page will reveal many kinds of disk errors. If 
one is detected, an error message is printed and LADS is shut 
down (2650) by jumping to FIN within Eval. 
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The .S (screen printout on) and .H (hexadecimal number 
printout) pseudo-ops are the final items to assemble as part of 
the LADS source code program. The subprogram Table follows, 
but it's data, not programming. 

There's no particular reason why these two pseudo-ops 
should be the last thing in LADS. They just are. 

Also, they're very simple. They each print their names to 
announce themselves, .S or .H; set up their flags, SFLAG or 
HXFLAG; and exit through PULLINE. The only notable thing 
about .S is that it must not set its flag until pass 2. 

The .H is a default condition of this assembler. LADS as¬ 
sumes that you want hex output unless you use the .NH to 
turn off hex and turn decimal on. Of course, you can set up 
other default conditions which are more harmonic with your 
own programming needs. 
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(DEFAULT) 













FI1; CONTINUE STORING FILENAME IN MAIN BUFFER (LABEL) 
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PRINTOUT BUFFER (LABEL) 






(PROGRAM, WRITE) SIGNALS 
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FOR DISK ERROR (FAILURE TO OPEN CORRECTLY) 





(PRINTER) PSEUDO-OP 
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HANDLE .N(SOMETHING),TURN-IT-OFF PSEUDO-OPS 
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u 
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#1; RESTORE NORMAL i/O 






RETURN TO EVAL) 
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#46; PRINT 






(COMPUTER SPECIFIC) 
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Eh 
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RAISE SCREEN PRINTOUT (LISTING) FLAG 








PSEUDO-OP (HEX NUMBERS DURING PRINTOUT) 
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Tables: 

Data, Messages, Variables 

Computers are information processors. Data is another word 
for information. This points up the difference between the two 
distinct sections of any computer program: code and data. The 
code, or program proper, is a list of actions for the computer 
to take. The data is the information upon which those actions 
are based. 

Data is usually separated from the code; it might even be 
outside the computer. Sometimes data is on a disk file, some¬ 
times on tape, sometimes in the user's brain, as when a pro¬ 
gram halts and asks for input from a keyboard. In all of these 
cases, though, the code is segregated from the data which it 
processes. 

An Odd Duck 

LADS processes source code, turning it into runnable object 
code. It takes a list of actions like LDA #75:STA SCREEN and 
turns them into computer-understandable machine language 
object programs. 

LADS gets its data from two sources, a disk source code 
file (or source code in RAM) and also from the Tables sub¬ 
program. Tables isn't really a sub program, of course. We're 
forced to call it that because there isn't a better word. It's 
really an odd duck. There are no commands to the computer 
within Tables. It's pure information. Essential information, 
true, but there are no ML instructions in Tables. Just defi¬ 
nitions, messages, pointers, buffers, flags, and registers. LADS 
couldn't operate without them, but they're not active program¬ 
ming instructions—they're for reference. 

Three Parallel Tables 

Tables starts out, appropriately enough, with three parallel ta¬ 
bles: MNEMONICS, TYPES, and OPS. Each table contains 56 
pieces of information. MNEMONICS holds the names of all 
the 6502 mnemonics like LDA and INY. TYPES identifies the 
category of each mnemonic (we'll get to this in a minute). And 
OPS provides an opcode for each category. To see how these 
three tables work together, let's look at the first item in the 
first table, the mnemonic LDA. 
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In your machine language programming, you might want 
to load the Accumulator with the number 1. You would write: 
100 LDA #1 


The computer wouldn't grasp the meaning of the ASCII 
characters L-D-A-#-l at all. They're for our convenience, not 
its. 

We think alphabetically or alphanumerically. It thinks 
binarily. It wants pure numbers. The CPU, the "thinking” part 
of the 6502 chip, takes action according to a code of its own, 
but this code isn't the ASCII code. It's an opcode, an opera¬ 
tions code. The CPU will place a number into the Accu¬ 
mulator, the A Register, if it comes across any of the following 
numbers: 161, 165, 169, 173, 177, 181, 185, or 189. Each of 
these numbers is an opcode for LDA. But each one loads from 
a different place. The different numbers represent the opcodes 
for the eight different addressing modes available to LDA. They 
are: 


Addressing 

Mode's Name 

Immediate 

Zero Page 

Zero Page,X 

Zero Page,X (indirect) 

Zero Page,Y (indirect) 

Absolute 

Absolute,Y 

Absolute,X 


Example Opcode 
LDA #15 169 

LDA 15 165 

LDA 15,X 181 

LDA (15,X) 161 
LDA (15),Y 177 
LDA 1500 173 

LDA 1500, Y 185 
LDA 1500,X 189 


Most of the mnemonics can use a variety of addressing 
modes. LDA can be addressed these eight ways, LDY can be 
addressed five ways, and so on. That's where TYPES comes 
in. There are ten TYPES, and each opcode falls into one of the 
ten categories. Mnemonics are grouped according to their 
addressing mode's similarities. The mnemonics cluster into 
TYPES according to the way that they can be addressed: 


Type 0: 

RTS, INY, 

DEY, 

DEX, 

INX, 

SEC, 

CLC, TAX, 

TAY, 

TXA, 

TYA, 

PHA, 

PLA, BRK, 

CLD, 

CLI, 

PHP, 

PLP, 

RTI, SED, 

SEI, 

TSX, 

TXS, 

CLV 

NOP 
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_ (Each of these mnemonics takes up only one byte in memory; 
each is only capable of Implied addressing—they have no 
argument, no address.) 

- Type 1: 

LDA, CMP, STA, SBC, ADC, AND, 

ORA, EOR 

—' (Type 1 mnemonics have the largest number of possible 

addressing modes, eight. See the list for LDA above.) 

Type 2: 

STY, STX, DEC, INC 

(These are fairly restricted in their addressing options. STY has 
only three possibilities: Absolute, Zero Page, and Zero Page,X. 
STX can perform only Absolute, Zero Page, and Zero Page,Y 
[it's the only one which can use this Zero Y mode], DEC and 
INC can do Absolute; Zero Page; Zero Page,X; and 
Absolute,X.) 

Type 3: 

ROL, ROR, LSR, ASL 

(These are the bit-shifting, "logical” instructions. They can be 
addressed in the following modes: Absolute; Zero Page; Zero 
Page,X; Absolute,X; and one which is reserved for them alone. 
Accumulator mode. In that mode, the number held in the 
Accumulator is acted upon.) 

Type 4: 

CPY, CPX 

(The compare X or Y can use Immediate, Absolute, or Zero 
Page modes.) 

Type 5: 

„ LDY, LDX 

(These loads are more restricted in their addressing possibil¬ 
ities than LDA. LDX can use Immediate; Absolute; Zero Page; 
Absolute,Y; and Zero Page,Y. LDY can use Immediate; Ab¬ 
solute; Zero Page; Zero Page,X; and Absolute,X. Notice that 
they cannot index themselves; ,X modes are possible only with 
— 1 LDY and vice versa.) 

Type 6: 

JMP 

(This is a special case; it stands alone. It has two ways of 
addressing: the extremely common Absolute mode and the ex- 
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tremely rare Indirect mode, JMP (via this). Because most 
programming contains many JMPs, it should have its own 
category. Also, the only other mnemonic which is essentially 
limited to Absolute addressing is JSR, and it gets a category all 
to itself as well.) 

Type 7: 

BIT 

(This one is also an oddity. It too needs a category all its own. 
BIT can use only Absolute or Zero Page addressing.) 

Type 8: 

BCS, BEQ, BCC, BNE, BMI, BPL, 

BVC, BVS 

(All the branch instructions collect together as type 8. They 
have only one addressing mode, Relative, and they are the 
only instructions which can use this mode.) 

Type 9: 

JSR 

(It can only Absolute address.) 

Each of these groups derives from the arrangement of the 
opcodes. The patterns are more easily visualized if you look at 
the opcodes laid out in a table according to their numeric 
values. 
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Notice the relationship between LDA (15,X) and LDA 
#15. The former has an opcode of 161; the latter, 169. As the 
Eval subprogram goes through the source code line, it is look¬ 
ing for clues to the addressing mode: Is there a #, a comma, a 
parenthesis, an X, or a Y? 

Each of these things, combined with the TYPE, tells Eval 
when to raise the value of the original opcode (let's call it the 
base opcode) assigned to the mnemonic from the OPS table. If 
Eval finds a # symbol, it adds 8 to the base opcode and goes 
right to the TWOS exit. It knows then that this opcode should 
be 169 (161 + 8) and that there will be two bytes to assemble: 
Immediate mode addressing uses two bytes. (All the other 
mnemonics grouped with LDA as type 1 will also add 8 to 
their base opcodes to signify their Immediate addressing 
modes.) 

The base opcodes are in that third table called OPS (190). 
The Eval subprogram looks up each mnemonic in the 
MNEMONICS table, and then the numbers extracted from the 
TYPES and OPS tables are stored in the variables TYPE and 
OP for future reference. Finally, Eval starts looking for those # 
and ) clues within the source code line. These clues cause Eval 
to add 4 or 8 or 16 or sometimes even 24 to the base opcode. 
This adjusts the base opcode upward so it will eventually be¬ 
come the correct opcode for the addressing mode being used. 

CMP is grouped with LDA as a type 1 mnemonic. That's 
because a # will add 8 to either of their base opcodes and result 
in the correct, final opcode for Immediate addressing. The base 
opcode for CMP is 193, which, unadjusted, would stand for 
CMP (15,X). If we come upon a # following the CMP, how¬ 
ever, 8 is added to the 193, giving 201, the correct opcode for 
CMP #15. Then Eval would JMP to TWOS and conclude 
assembly of that line of source code. 

In each case, the base opcode in the OPS table is the low¬ 
est possible opcode number from among the addressing mode 
options available to each mnemonic. As the evaluation process 
proceeds throughout the Eval subprogram, the discovery of the 
various addressing modes triggers additions to the base opcode. 
In the end, when Eval finally releases a source code line, the 
right opcode has been achieved. 

Returning to the data within the Tables subprogram, we 
next come upon the little HEXA table (270). It lists all the digits 
found in hexadecimal numbers. It's used as a lookup table 
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when LADS translates an internal two-byte integer into a print¬ 
able, readable ASCII hexadecimal number like F-F-D-2. 

The Six Bufferettes 

Here are the buffers (290-340). They are constantly being filled 
with a source code line, evaluated, and then cleaned off by be¬ 
ing filled with zeros. They are separated into six different 
bufferettes primarily for the programmer's benefit. It's easier to 
visualize different actions if the buffers have different names. 

LABEL is the main buffer—every source code line comes 
into it. BUFFER is where arguments are sent for further study. 
The rest of them are used for special-purpose analysis. Things 
like hex numbers are moved up to HEXBUF, for example, so 
they will be isolated from other characters and can be 
translated. 

One other buffer, distant from the rest, is needed. LADS 
stores comments (remarks following semicolons in the source 
code) into a buffer normally used by BASIC to hold program 
lines. The location of this buffer depends on each computer's 
memory organization and so it is defined in the Defs 
subprogram. 

The computer's Accumulator and Y and X are called reg¬ 
isters. They're like hypervariables inside the 6502 chip—they 
are constantly changing. Calling them registers serves to distin¬ 
guish them from program-created variables or other special 
locations within the computer. The three variables RADD, 
VREND, and TSTORE are called registers in LADS. That's 
largely the result of whimsy. There are as yet no established 
conventions concerning how to describe storage areas in ML 
programming. In this book we're variously referring to these 
set-aside bytes as flags, variables, registers, pointers, vectors, 
etc. (See Chapter 1). 

In reality, they're all pretty much the same thing: Just some 
RAM memory space we've allocated with the .BYTE pseudo-op 
(or identified in zero page by definition using the = pseudo-op 
like STATUS = $FD). But it's nice to use various terms. It 
helps to remember things and, sometimes, it even helps to de¬ 
scribe the purpose or function of a particular variable. Pointers, 
for example, are always associated with the Indirect Y address¬ 
ing mode—LDA (POINTER),Y. They point to some address in 
RAM. 
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Registers Used by Valdec 

Anyway, these three variables are described (350) as registers. 
RADD holds numbers being added to other numbers. VREND 
holds the length of the ASCII version of a number while it's 
being turned into an integer. TSTORE holds the interim results 
of multiplication. All three “registers" are used by the Valdec 
subprogram. 

Lines 400-460 contain the various error messages. Note 
that each one ends with .BYTE 0 to stick a delimiting 0 in after 
the message itself. This 0 tells PRNTMESS (the subroutine in 
the Printops subprogram which prints messages) where to stop. 

The rest of Tables contains variables, pointers, and reg¬ 
isters. Notice that there are no zero page variables here. Zero 
page variables, pointers especially, are most useful for Indirect 
Y addressing, but you won't need too many of them. In fact, 
you won't be allowed to use much of zero page because it is so 
popular with your computer's operating systems and languages. 
But the most important thing to remember about any zero page 
space that you do use is: Zero page variables must be defined at 
the start of your assembler source code. They are unique in this. 
Any other equates can be defined anywhere in the source code. 
And, of course, the address-type PC variables or labels can be 
defined anywhere. 

OP and TYPE are variables which hold information about 
the mnemonic currently under investigation during assembly. 
After a mnemonic is located in the MNEMONIC table, the 
matching TYPE and base opcode are pulled out of their tables 
and stored into the variables OP and TP for later reference 
(480-490). TA is the permanent storage area for the start ad¬ 
dress of assembly, the original * = . 

Source Code Line Numbers 

LINEN holds the source code line number of whatever physical 
line is currently being assembled. ENDFLAG tells Eval when to 
shut down assembly. It is incremented by the .END pseudo-op. 
WORK is used by several routines within LADS as a conve¬ 
nient place to temporarily leave two-byte values. 

RESULT is an important variable. It holds the argument of 
each opcode. When an argument (expression-type) label like 
STA HERE is encountered, the label HERE is looked up by the 
subprogram Array and the integer value of the word HERE is 
placed into RESULT. When a hex argument like STA $1500 
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comes in from the source code, the subprogram Indisk trans¬ 
lates the characters $1500 into an integer value and stores that 
value in RESULT. Likewise, a decimal argument like STA 5376 
is sent to RESULT after it's evaluated in the Eval subprogram. 
For every addressing mode which has an argument, the argu¬ 
ment is stored in RESULT after it's been evaluated. 

ARGSIZE holds the length of each argument, how many 
characters long it is. For example, ARGSIZE would hold a 7 for 
the argument in LDA (155),Y since (155),Y is seven characters 
long. It is used in the Eval subprogram in lines 1670, 2250, 
2750, and 3020. 

EXPRESSF is a flag which shows whether or not there is a 
label being used as an argument. LDA 15 would leave 
EXPRESSF down. LDA NAME would set it up. It is used in the 
Eval subprogram at lines 740, 1470, 1510, 1590, and 1700. 

HEXFLAG tells the Eval subprogram whether or not it 
must calculate a decimal argument. Hex arguments are cal¬ 
culated (and left in RESULT) by the Indisk subprogram. Deci¬ 
mal arguments, however, need to be worked out by Eval. 
HEXFLAG is used in lines 550 and 1680 in Eval. 

HEXLEN holds the length of a hex number. It is used in 
Indisk in lines 2170, 2240, and 2490. 

KEYNUM holds the position of a keyword (a BASIC com¬ 
mand) in the table of keywords in ROM BASIC. It is used in 
Indisk in 1060, 1080, 4260, and 4280. 

LABSIZE is used in the Equate subprogram to hold the 
number of characters in an equate-type label (such as NAME = 
22). It is used in lines 120, 160, and 410. 

LABPTR is also used by Equate. It points to the position in 
the label array where the integer value of a label should be 
stored. It is found in lines 600 and 750. 

ARRAYTOP points to the highest byte in the label array. It 
is where we start any search through the labels. Identical to TA, 
ARRAYTOP also represents the start of the LADS assembler in 
memory, minus one. It is used in Equate in lines 110 and 150 
and in Array in lines 30 and 50. 

A List of Flags and Variables 

BUFLAG goes up when a line of source code contains # or (. 
These symbols are important when determining addressing 
mode, but must be ignored in evaluating arguments (the nu¬ 
meric value of the expression). This flag is used in lines 470 
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and 1020 in Array and in lines 750 and 1400 in Eval. 

PASS is used frequently throughout the entire LADS pro¬ 
gram—it shows which pass we're currently on during assem¬ 
bly. A 0 in PASS signifies pass 1; a 1 represents pass 2. 

The three variables A, X, and Y are often called upon to 
temporarily hold the values in the 6502 registers after which 
they were named. They are temporary storage areas. 

PT is a temporary storage area to hold the PARRAY dy¬ 
namic pointer in the Array subprogram. 

BNUMFLAG and BFLAG are used in the evaluation of the 
.BYTE pseudo-op in the Indisk subprogram. 

ADDNUM holds the value of the number following the 
+ pseudo-op. For example, it would hold 78 if this were the 
source code: LDA LABEL+78. 

The PLUSFLAG shows that there is something in the 
ADDNUM variable which must be added to the label in an 
argument. It shows that the + pseudo-op appears in the cur¬ 
rent source code line. 

BYTEFLAG shows that the < or > pseudo-op appears in 
the current source code line. It is an odd flag in that it has 
more than two states. It can be 0 indicating no < or >. And it 
can be 1 or 2 to distinguish between < and >. 

DISKFLAG means the .D NAME pseudo-op was activated 
and so object code should be sent to a disk object file to create 
a runnable ML program. 

PRINTFLAG means the .P pseudo-op was activated and a 
listing should go to the printer for a hard copy record of 
assembly. 

POKEFLAG means the .O pseudo-op was activated and 
all object code generated by assembly should be POKEd into 
RAM memory. 

COLFLAG is used in the Indisk subprogram to show that 
the previously assembled line of source code ended with a co¬ 
lon rather than a 0 (end of physical line). It tells Indisk not to 
look for a new source code line number. 

FOUNDFLAG goes up when the same word is found 
more than once within the label array, proving that a label has 
been redefined. That's illegal and results in an error message. 
This flag is used in the Array subprogram. 
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SFLAG means the .S pseudo-op is being used and a vis¬ 
ible listing of source and object code should appear on the 
screen during assembly. 

HXFLAG responds to the .H pseudo-op. If set (that's the 
default, the normal start-up condition in LADS), all opcodes 
and arguments are printed (to screen or printer) in hexadeci¬ 
mal. HXFLAG is turned off by the .NH (no hex) pseudo-op 
and causes opcodes and arguments to be printed as decimal 
numbers. 

LOCFLAG, when set, tells the printout routines within 
the Eval subprogram that they need to print a PC address-type 
label. For example, a line like: 

100 START LDA #GREEN 

requires special handling so that the address-type label START 
will be printed on screen or printer in the correct format (or 
that it will be printed at all). LOCFLAG is used in Eval in lines 
790, 1210, and 3510. 

BABFLAG shows that there is a semicolon on a line of 
source code. It signifies that a REMark, a comment, appears on 
this line. It tells the printout routines that there is a comment 
which must also be printed on the screen or the printer 
following the printout of the business part of a line. 
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jram 9-2. Tables, Apple Modifications 

To create the Apple version of Tables, make the following 
changes and additions to Program 9-1: 
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Program 9-3. Tables, Atari Modifications 

To create the Atari version of Tables, make the following 
changes and additions to Program 9-1: 
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6502 Instruction Set 


Here are the 56 mnemonics, the 56 instructions you can give 
the 6502 (or 6510) chip. Each of them is described in several 
ways: what it does, what major uses it has in ML program¬ 
ming, what addressing modes it can use, what flags it affects, 
its opcode (hex/decimal), and the number of bytes it uses up. 

ADC 

What it does: Adds byte in memory to the byte in the 
Accumulator, plus the carry flag if set. Sets the carry flag if re¬ 
sult exceeds 255. The result is left in the Accumulator. 

Major uses: Adds two numbers together. If the carry flag 
is set prior to an ADC, the resulting number will be one 
greater than the total of the two numbers being added (the 
carry is added to the result). Thus, one always clears the carry 
(CLC) before beginning any addition operation. Following an 
ADC, a set (up) carry flag indicates that the result exceeded 
one byte's capacity (was greater than 255), so you can chain- 
add bytes by subsequent ADCs without any further CLCs (see 
"Multi-Byte Addition" in Appendix D). 

Other flags affected by addition include the V (overflow) 
flag. This flag is rarely of any interest to the programmer. It 
merely indicates that a result became larger than could be held 
within bits 0-6. In other words, the result "overflowed" into 
bit 7, the highest bit in a byte. Of greater importance is the 
fact that the Z is set if the result of an addition is zero. Also 
the N flag is set if bit 7 is set. This N flag is called the "neg¬ 
ative" flag because you can manipulate bytes thinking of the 
seventh bit as a sign (+ or —) to accomplish "signed 
arithmetic" if you want to. In this mode, each byte can hold a 
maximum value of 127 (since the seventh bit is used to reveal 
the number's sign). The B branching instruction's Relative 
addressing mode uses this kind of arithmetic. 

ADC can be used following an SED which puts the 6502 
into "decimal mode." Here's an example. Note that the num¬ 
ber 75 is decimal after you SED: 
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SED 

CLC 

LDA #75 

ADC #$05 (this will result in 80) 

CLD (always get rid of decimal mode as soon as you've 

finished) 

Attractive as it sounds, the decimal mode isn't of much real 
value to the programmer. LADS will let you work in decimal 
if you want to without requiring that you enter the 6502's 
mode. Just leave off the $ and LADS will handle the decimal 
numbers for you. 


Addressing Modes: 

Number of 


Name 

Format 

Opcode 

Bytes Used 

Immediate 

ADC #15 

$69/105 

2 

Zero Page 

ADC 15 

$65/101 

2 

Zero Page,X 

ADC 15,X 

$75/117 

2 

Absolute 

ADC 1500 

$6D/109 

3 

Absolute,X 

ADC 1500,X 

$7D/125 

3 

Absolute,Y 

ADC 1500, Y 

$79/121 

3 

Indirect,X 

ADC (15,X) 

$61/97 

2 

Indirect,Y 

ADC (15),Y 

$71/113 

2 


Affected flags: N Z C V 


AND 

What it does: Logical ANDs the byte in memory with the 
byte in the Accumulator. The result is left in the Accumulator. 
All bits in both bytes are compared, and if both bits are 1, the 
result is 1. If either or both bits are 0, the result is 0. 

Major uses: Most of the time, AND is used to turn bits 
off. Let's say that you are pulling in numbers higher than 128 
(10000000 and higher) and you want to "unshift" them and 
print them as lowercase letters. You can then put a zero into 
the seventh bit of your "mask" and then AND the mask with 
the number being unshifted: 

LDA ? (test number) 

AND #$7F (01111111) 
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(If either bit is 0, the result will be 0. So the seventh bit of the 
test number is turned off here and all the other bits in the test 
number are unaffected.) 

Addressing Modes: 

Number of 


Name 

Format 

Opcode 

Bytes Used 

Immediate 

AND #15 

$29/41 

2 

Zero Page 

AND 15 

$25/37 

2 

Zero Page,X 

AND 15/X 

$35/53 

2 

Absolute 

AND 1500 

$2D/45 

3 

Absolute,X 

AND 1500,X 

$3D/61 

3 

Absolute,Y 

AND 1500, Y 

$39/57 

3 

Indirect,X 

AND (15,X) 

$21/33 

2 

Indirect,Y 

AND (15),Y 

$31/49 

2 


Affected flags: N Z 


ASL 

What it does: Shifts the bits in a byte to the left by 1. 

This byte can be in the Accumulator or in memory, depending 
on the addressing mode. The shift moves the seventh bit into 
the carry flag and shoves a 0 into the zeroth bit. 


ns 

1 —^ f \ '^ 

Lj 

Carry 

1 N 

□ 

□ 

□ 

□ 


□ 

□ 

□ 


Flag Bit Bit Bit Bit Bit Bit Bit Bit 

7 6 5 4 3 2 1 0 

Major uses: Allows you to multiply a number by 2. Num¬ 
bers bigger than 255 can be manipulated using ASL with ROL 
(see "Multiplication” in Appendix D). 

A secondary use is to move the lower four bits in a byte 
(a four-bit unit is often called a nybble) into the higher four 
bits. The lower bits are replaced by zeros, since ASL stuffs ze¬ 
ros into the zeroth bit of a byte. You move the lower to the 
higher nybble of a byte by: ASL ASL ASL ASL. 
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Addressing Modes: 


Name 

Format 

Opcode 

Number of 
Bytes Used 

Accumulator 

ASL 

$0A/10 

1 

Zero Page 

ASL 15 

$06/6 

2 

Zero Page,X 

ASL 15,X 

$16/22 

2 

Absolute 

ASL 1500 

$0E/14 

3 

Absolute,X 

ASL 1500,X 

$lE/30 

3 

Affected flags: N Z C 




BCC 

What it does: Branches up to 127 bytes forward or 128 
bytes backward from its own address if the carry flag is clear. 
In effect, it branches if the second item is lower than the first, 
as in: LDA #150: CMP #149 or LDA #22: SBC #15. These ac¬ 
tions would clear the carry and, triggering BCC, a branch 
would take place. 

Major uses: For testing the results of CMP or ADC or 
other operations which affect the carry flag. IF-THEN or ON- 
GOTO type structures in ML can involve the BCC test. It is 
similar to BASIC's > instruction. 

Addressing Modes: 

Number of 

Name Format Opcode Bytes Used 

Relative BCC addr. $90/144 2 

Affected flags: none of them. 


BCS 

What it does: Branches up to 127 bytes forward or 128 
bytes backward from its own address if the carry flag is set. In 
effect, it branches if the second item is higher than the first, as 
in: LDA #150: CMP #249 or LDA #22: SBC #85. These ac¬ 
tions would set the carry and, triggering BCS, a branch would 
take place. 

Major uses: For testing the results of LDA or ADC or 
other operations which affect the carry flag. IF-THEN or ON- 
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GOTO type structures in ML can involve the BCC test. It is 
similar to BASIC's < instruction. 

Addressing Modes: 

Number of 

Name Format Opcode Bytes Used 

Relative BCS addr. $B0/176 2 

Affected flags: none of them. 


BEQ 

What it does: Branches up to 127 bytes forward or 128 
bytes backward from its own address if the zero flag (Z) is set. 
In other words, it branches if an action on two bytes results in 
a 0, as in: LDA #150: CMP #150 or LDA #22: SBC #22. 

These actions would set the zero flag, so the branch would 
take place. 

Major uses: For testing the results of LDA or ADC or 
other operations which affect the carry flag. IF-THEN or ON- 
GOTO type structures in ML can involve the BEQ test. It is 
similar to BASIC's = instruction. 

Addressing Modes: 


Number of 

Name Format Opcode Bytes Used 

Relative BEQ addr. $F0/240 2 

Affected flags: none of them. 


BIT 

What it does: Tests the bits in the byte in memory against 
the bits in the byte held in the Accumulator. The bytes (mem¬ 
ory and Accumulator) are unaffected. BIT merely sets flags. 

The Z flag is set as if an Accumulator AND memory had been 
performed. The V flag and the N flag receive copies of the 
sixth and seventh bits of the tested number. 

Major uses: Although BIT has the advantage of not hav¬ 
ing any effect on the tested numbers, it is infrequently used 
because you cannot employ the Immediate addressing mode 
with it. Other tests (CMP and AND, for example) can be used 
instead. 


243 






6502 Instruction Set 


Addressing Modes: 


Name Format 

Zero Page BIT 15 

Absolute BIT 1500 

Affected flags: N Z V 


Number of 
Opcode Bytes Used 

$24/36 2 

$2C/44 3 


BMI 

What it does: Branches up to 127 bytes forward or 128 
bytes backward from its own address if the negative (N) flag is 
set. In effect, it branches if the seventh bit has been set by the 
most recent event: LDA #150 or LDA #128 would set the sev¬ 
enth bit. These actions would set the N flag, signifying that a 
minus number is present if you are using signed arithmetic or 
that there is a shifted character (or a BASIC keyword) if you 
are thinking of a byte in terms of the ASCII code. 

Major uses: Testing for BASIC keywords, shifted ASCII, 
or graphics symbols. Testing for + or — in signed arithmetic. 

Addressing Modes: 

Number of 

Name Format Opcode Bytes Used 

Relative BMI addr. $30/48 2 

Affected flags: none of them. 


BNE 

What it does: Branches up to 127 bytes forward or 128 
bytes backward from its own address if the zero flag is clear. 
In other words, it branches if the result of the most recent 
event is not zero, as in: LDA #150: SBC #120 or LDA #128: 
CMP #125. These actions would clear the Z flag, signifying 
that a result was not 0. 

Major uses: The reverse of BEQ. BNE means Branch if 
Not Equal. Since a CMP subtracts one number from another 
to perform its comparison, a 0 result means that they are 
equal. Any other result will trigger a BNE (not equal). Like the 
other B branch instructions, it has uses in IF-THEN, ON- 
GOTO type structures and is used as a way to exit loops (for 
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example, BNE will branch back to the start of a loop until a 0 
delimiter is encountered at the end of a text message). BNE is 
like BASIC's <> instruction. 

Addressing Modes: 

Number of 

Name Format Opcode Bytes Used 

Relative BNE addr. $D0/208 2 

Affected flags: none of them. 


BPL 

What it does: Branches up to 127 bytes forward or 128 
bytes backward from its own address if the N flag is clear. In 
effect, it branches if the seventh bit is clear in the most recent 
event, as in: LDA #12 or LDA #127. These actions would 
clear the N flag, signifying that a plus number (or zero) is 
present in signed arithmetic mode. 

Major uses: For testing the results of LDA or ADC or 
other operations which affect the negative (N) flag. IF-THEN 
or ON-GOTO type structures in ML can involve the BCC test. 
It is the opposite of the BMI instruction. BPL can be used for 
tests of "unshifted" ASCII characters and other bytes which 
have the seventh bit off and so are lower than 128 
(OXXXXXXX). 


Addressing Modes: 


Name 

Format 

Opcode 

Number of 
Bytes Used 

Relative 

BPL addr. 

$10/16 

2 

Affected flags: 

none of them. 




BRK 

What it does: Causes a forced interrupt. This interrupt 
cannot be masked (prevented) by setting the I (interrupt) flag 
within the Status Register. If there is a Break Interrupt Vector 
(a vector is like a pointer) in the computer, it may point to a 
resident monitor if the computer has one. The PC and the Sta- 
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tus Register are saved on the stack. The PC points to the loca¬ 
tion of the BRK + 2. 

Major uses: Debugging an ML program can often start 
with a sprinkling of BRKs into suspicious locations within the 
code. The ML is executed, a BRK stops execution and drops 
you into the monitor, you examine registers or tables or vari¬ 
ables to see if they are as they should be at this point in the 
execution, and then you restart execution from the breakpoint. 
This instruction is essentially identical to the actions and uses 
of the STOP command in BASIC. 

Addressing Modes: 

Number of 

Name Format Opcode Bytes Used 

Implied BRK $00/0 1 

Affected flags: Break (B) flag is set. 


BVC 

What it does: Branches up to 127 bytes forward or 128 
bytes backward from its own address if the V (overflow) flag 
is clear. 

Major uses: None. In practice, few programmers use 
"signed" arithmetic where the seventh bit is devoted to in¬ 
dicating a positive or negative number (a set seventh bit 
means a negative number). The V flag has the job of notifying 
you when you've added, say 120 + 30, and have therefore set 
the seventh bit via an "overflow" (a result greater than 127). 
The result of your addition of two positive numbers should 
not be seen as a negative number, but the seventh bit is set. 
The V flag can be tested and will then reveal that your answer 
is still positive, but an overflow took place. 


Addressing Modes: 


Name 

Format 

Opcode 

Number of 
Bytes Used 

Relative 

BVC addr. 

$50/80 

2 

Affected flags: 

none of them. 
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BVS 

What it does: Branches up to 127 bytes forward or 128 
bytes backward from its own address if the V (overflow) flag 
is set). 

Major uses: None. See BVC above. 

Addressing Modes: 

Number of 

Name Format Opcode Bytes Used 

Relative BVS addr. $70/112 2 

Affected flags: none of them. 


CLC 

What it does: Clears the carry flag. (Puts a 0 into it.) 
Major uses: Always used before any addition (ADC). If 
there are to be a series of additions (multiple-byte addition), 
only the first ADC is preceded by CLC since the carry feature 
is necessary. There might be a carry, and the result will be in¬ 
correct if it is not taken into account. 

The 6502 does not offer an addition instruction without 
the carry feature. Thus, you must always clear it before the 
first ADC so a carry won't be accidentally added. 

Addressing Modes: 

Number of 

Name Format Opcode Bytes Used 

Implied CLC $18/24 1 

Affected flags: Carry (C) flag is set to zero. 


CLD 

What it does: Clears the decimal mode flag. (Puts a 0 into 
it.) 

Major uses: Commodore computers execute a CLD when 
first turned on as well as upon entry to monitor modes 
(PET/CBM models) and when the SYS command occurs. Ap¬ 
ple and Atari, however, can arrive in an ML environment with 
the D flag in an indeterminant state. An attempt to execute 


247 






6502 Instruction Set 


ML with this flag set would cause disaster—all mathematics 
would be performed in “decimal mode." It is therefore sug¬ 
gested that owners of Apple and Atari computers CLD during 
the early phase, the initialization phase, of their programs. 
Though this is an unlikely bug, it would be a difficult one to 
recognize should it occur. 

For further detail about the 6502's decimal mode, see SED 


below. 



Addressing Modes: 


Number of 

Name Format 

Opcode 

Bytes Used 

Implied CLD 

$D8/216 

1 

Affected flags: Decimal (D) flag is set to zero. 



CLI 

What it does: Clears the interrupt-disable flag. All inter¬ 
rupts will therefore be serviced (including maskable ones). 

Major uses: To restore normal interrupt routine process¬ 
ing following a temporary suspension of interrupts for the 
purpose of redirecting the interrupt vector. For more detail, see 


SEI below. 



Addressing Modes: 


Number of 

Name Format 

Opcode 

Bytes Used 

Implied CLI 

$58/88 

1 


Affected flags: Interrupt (I) flag is set to zero. 


CLV 

What it does: Clears the overflow flag. (Puts a 0 into it.) 
Major uses: None. (See BVC above.) 
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Addressing Modes: 

Name Format 


Number of 
Opcode Bytes Used 


Implied CLV $B8/184 1 

Affected flags: Overflow (V) flag is set to zero. 


CMP 

What it does: Compares the byte in memory to the byte 
in the Accumulator. Three flags are affected, but the bytes in 
memory and in the Accumulator are undisturbed. A CMP is 
actually a subtraction of the byte in memory from the byte in 
the Accumulator. Therefore, if you LDA #15:CMP #15—the 
result (of the subtraction) will be zero, and BEQ would be trig¬ 
gered since the CMP would have set the Z flag. 

Major uses: This is an important instruction in ML. It is 
central to IF-THEN and ON-GOTO type structures. In 
combination with the B branching instructions like BEQ, CMP 
allows the 6502 chip to make decisions, to take alternative 
pathways depending on comparisons. CMP throws the N, Z, 
or C flags up or down. Then a B instruction can branch, 
depending on the condition of a flag. 

Often, an action will affect flags by itself, and a CMP will 
not be necessary. For example, LDA #15 will put a 0 into the 
N flag (seventh bit not set) and will put a 0 into the Z flag 
(the result was not 0). LDA does not affect the C flag. In any 
event, you could LDA #15: BPL TARGET, and the branch 
would take effect. However, if you LDA $20 and need to 
know if the byte loaded is precisely $0D, you must CMP 
#$0D:BEQ TARGET. So, while CMP is sometimes not ab¬ 
solutely necessary, it will never hurt to include it prior to 
branching. 

Another important branch decision is based on > or < 
situations. In this case, you use BCC and BCS to test the C 
(carry) flag. And you've got to keep in mind the order of the 
numbers being compared. The memory byte is compared to 
the byte sitting in the Accumulator. The structure is: memory 
is less than or equal to the Accumulator (BCC is triggered be¬ 
cause the carry flag was cleared). Or memory is more than 
Accumulator (BCS is triggered because the carry flag was set). 
Here's an example. If you want to find out if the number in 
the Accumulator is less than $40, just CMP #$41:BCC 
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LESSTHAN (be sure to remember that the carry flag is cleared 
if a number is less than or equal, that's why we test for less 
than $40 by comparing with a $41): 

LDA #75 

CMP #$41; IS IT LESS THAN $40? 

BCC LESSTHAN 

One final comment about the useful BCC/BCS tests 
following CMP: It's easy to remember that BCC means less 
than or equal and BCS means more than if you notice that C is 
less than S in the alphabet. 

The other flag affected by CMPs is the N flag. Its uses are 
limited since it merely reports the status of the seventh bit; 
BPL triggers if that bit is clear, BMI triggers if it's set. How¬ 
ever, that seventh bit does show whether the number is 
greater than (or equal to) or less than 128, and you can apply 
this information to the ASCII code or to look for BASIC 
keywords or to search data bases (BPL and BMI are used by 
LADS' data base search routines in the Array subprogram). 
Nevertheless, since LDA and many other instructions affect 
the N flag, you can often directly BPL or BMI without any 
need to CMP first. 

Addressing Modes: 


Number of 


Name 

Format 

Opcode 

Bytes Used 

Immediate 

CMP #15 

$C9/201 

2 

Zero Page 

CMP 15 

$C5/197 

2 

Zero Page,X 

CMP 15,X 

$D5/213 

2 

Absolute 

CMP 1500 

$CD/205 

3 

Absolute,X 

CMP 1500,X 

$DD/221 

3 

Absolute,Y 

CMP 1500,Y 

$D9/217 

3 

Indirect,X 

CMP (15,X) 

$0/193 

2 

Indirect,Y 

CMP (15),Y 

$Dl/209 

1 2 

Affected flags: N Z C 




CPX 

What it does: Compares the byte in memory to the byte 
in the X Register. Three flags are affected, but the bytes in 
memory and in the X Register are undisturbed. A CPX is ac¬ 
tually a subtraction of the byte in memory from the byte in 
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the X Register. Therefore, if you LDA #15:CPX #15—the re¬ 
sult (of the subtraction) will be zero and BEQ would be trig¬ 
gered since the CPX would have set the Z flag. 

Major uses: X is generally used as an index, a counter 
within loops. Though the Y Register is often preferred as an 
index since it can serve for the very useful Indirect Y address¬ 
ing mode (LDA (15),Y)—the X Register is nevertheless pressed 
into service when more than one index is necessary or when Y 
is busy with other tasks. 

In any case, the flags, conditions, and purposes of CPX 
are quite similar to CMP (the equivalent comparison instruc¬ 
tion for the Accumulator). For further information on the vari¬ 
ous possible comparisons (greater than, equal, less than, not 
equal), see CMP above. 


Addressing Modes: 


Name 

Immediate 
Zero Page 
Absolute 


Format 

CPX #15 
CPX 15 
CPX 1500 


Opcode 

$E0/224 

$E4/228 

SEC/236 


Number of 
Bytes Used 

2 

2 

3 


Affected flags: N Z C 


CPY 

What it does: Compares the byte in memory to the byte 
in the Y Register. Three flags are affected, but the bytes in 
memory and in the Y Register are undisturbed. A CPX is ac¬ 
tually a subtraction of the byte in memory from the byte in 
the Y Register. Therefore, if you LDA #15: CPY #15—the re¬ 
sult (of the subtraction) will be zero, and BEQ would be trig¬ 
gered since the CPY would have set the Z flag. 

Major uses: Y is the most popular index, the most heavily 
used counter within loops since it can serve two purposes: It 
permits the very useful Indirect Y addressing mode (LDA 
(15),Y) and can simultaneously maintain a count of loop 
events. 

See CMP above for a detailed discussion of the various 
branch comparisons which CPY can implement. 
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to reverse the current state of the sixth bit in a given byte: 
LDA BYTE:EOR #$40:STA BYTE. This will set bit 6 in BYTE if 
it was 0 (and clear it if it was 1). This selective bit toggling 
could be used to "shift" an unshifted ASCII character via EOR 
#$80 (1000000). Or if the character were shifted, EOR #$80 
would make it lowercase. EOR toggles. 

Addressing Modes: 


Name 

Format 

Opcode 

Number of 
Bytes Used 

Immediate 

EOR #15 

$49/73 

2 

Zero Page 

EOR 15 

$45/69 

2 

Zero Page,X 

EOR 15,X 

$55/85 

2 

Absolute 

EOR 1500 

$4D/77 

3 

Absolute,X 

EOR 1500,X 

$5D/93 

3 

Absolute,Y 

EOR 1500,Y 

$59/89 

3 

Indirect,X 

EOR (15,X) 

$41/65 

2 

Indirect,Y 

EOR (15),Y 

$51/81 

2 


Affected flags: N Z 


INC 

What it does: Increases the value of a byte in memory by 

1 . 

Major uses: Used exactly as DEC (see DEC above), except 
it counts up instead of down. For raising address pointers or 
supplementing the X and Y Registers as loop indexes. 

Addressing Modes: 


Number of 


Name 

Format 

Opcode 

Bytes Used 

Zero Page 

INC 15 

$E6/230 

2 

Zero Page,X 

INC 15,X 

$F6/246 

2 

Absolute 

INC 1500 

$EE/238 

3 

Absolute,X 

INC 1500,X 

$FE/254 

3 

Affected flags: N Z 




INX 


What it does: Increases the X Register by 1. 
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the X Register. Therefore, if you LDA #15:CPX #15—the re¬ 
sult (of the subtraction) will be zero and BEQ would be trig¬ 
gered since the CPX would have set the Z flag. 

Major uses: X is generally used as an index, a counter 
within loops. Though the Y Register is often preferred as an 
index since it can serve for the very useful Indirect Y address¬ 
ing mode (LDA (15),Y)—the X Register is nevertheless pressed 
into service when more than one index is necessary or when Y 
is busy with other tasks. 

In any case, the flags, conditions, and purposes of CPX 
are quite similar to CMP (the equivalent comparison instruc¬ 
tion for the Accumulator). For further information on the vari¬ 
ous possible comparisons (greater than, equal, less than, not 
equal), see CMP above. 


Addressing Modes: 


Name Format Opcode 

Immediate CPX #15 $E0/224 

Zero Page CPX 15 $E4/228 

Absolute CPX 1500 SEC/236 

Affected flags: N Z C 


Number of 
Bytes Used 

2 

2 

3 


CPY 

What it does: Compares the byte in memory to the byte 
in the Y Register. Three flags are affected, but the bytes in 
memory and in the Y Register are undisturbed. A CPX is ac¬ 
tually a subtraction of the byte in memory from the byte in 
the Y Register. Therefore, if you LDA #15: CPY #15—the re¬ 
sult (of the subtraction) will be zero, and BEQ would be trig¬ 
gered since the CPY would have set the Z flag. 

Major uses: Y is the most popular index, the most heavily 
used counter within loops since it can serve two purposes: It 
permits the very useful Indirect Y addressing mode (LDA 
(15),Y) and can simultaneously maintain a count of loop 
events. 

See CMP above for a detailed discussion of the various 
branch comparisons which CPY can implement. 
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to reverse the current state of the sixth bit in a given byte: 
LDA BYTE:EOR #$40:STA BYTE. This will set bit 6 in BYTE if 
it was 0 (and clear it if it was 1). This selective bit toggling 
could be used to "shift" an unshifted ASCII character via EOR 
#$80 (1000000). Or if the character were shifted, EOR #$80 
would make it lowercase. EOR toggles. 

Addressing Modes: 


Number of 


Name 

Format 

Opcode 

Bytes Used 

Immediate 

EOR #15 

$49/73 

2 

Zero Page 

EOR 15 

$45/69 

2 

Zero Page,X 

EOR 15,X 

$55/85 

2 

Absolute 

EOR 1500 

$4D/77 

3 

Absolute,X 

EOR 1500,X 

$5D/93 

3 

Absolute,Y 

EOR 1500,Y 

$59/89 

3 

Indirect,X 

EOR (15,X) 

$41/65 

2 

Indirect,Y 

EOR (15),Y 

$51/81 

2 

Affected flags: N Z 




INC 

What it does: Increases the value of a byte in memory by 

1 . 

Major uses: Used exactly as DEC (see DEC above), except 
it counts up instead of down. For raising address pointers or 
supplementing the X and Y Registers as loop indexes. 

Addressing Modes: 


Name 

Format 

Opcode 

Number of 
Bytes Used 

Zero Page 

INC 15 

$E6/230 

2 

Zero Page,X 

INC 15,X 

$F6/246 

2 

Absolute 

INC 1500 

$EE/238 

3 

Absolute,X 

INC 1500,X 

$FE/254 

3 


Affected flags: N Z 


INX 


What it does: Increases the X Register by 1. 


254 






6502 Instruction Set 


Major uses: Used exactly as DEX (see DEX above), except 
it counts up instead of down. For loop indexing. 


Addressing Modes: 

Name Format 

Implied INX 

Affected flags: N Z 


Number of 
Opcode Bytes Used 

$E8/232 1 


INY 

What it does: Increases the Y Register by 1. 

Major uses: Used exactly as DEY (see DEY above), except 
it counts up instead of down. For loop indexing and working 
with the Indirect Y addressing mode (LDA (15),Y). 


Addressing Modes: 


Number of 

Name Format 

Opcode 

Bytes Used 

Implied INY 

Affected flags: N Z 

$C8/200 

1 


JMP 

What it does: Jumps to any location in memory. 

Major uses: Branching long range. It is the equivalent of 
BASIC's GOTO instruction. The bytes in the Program Counter 
are replaced with the address (the argument) following the 
JMP instruction and, therefore, program execution continues 
from this new address. 

Indirect jumping—JMP (1500)—is not recommended, al¬ 
though some programmers find it useful. It allows you to set 
up a table of jump targets and bounce off them indirectly. For 
example, if you had placed the numbers $00 $04 in addresses 
$88 and $89, a JMP ($0088) instruction would send the pro¬ 
gram to whatever ML routine was located in address $0400. 
Unfortunately, if you should locate one of your pointers on 
the edge of a page (for example, $00FF or $17FF), this Indirect 
JMP addressing mode reveals its great weakness. There is a 
bug which causes the jump to travel to the wrong place—JMP 
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($00FF) picks up the first byte of the pointer from $00FF, but 
the second byte of the pointer will be incorrectly taken from 
$0000. With JMP ($17FF), the second byte of the pointer 
would come from what's in address $1700. 

Since there is this bug, and since there are no compelling 
reasons to set up JMP tables, you might want to forget you 
ever heard of Indirect jumping. 

Addressing Modes: 


Number of 

Name Format Opcode Bytes Used 

Absolute JMP 1500 $4C/76 3 

Indirect JMP (1500) $6C/108 3 

Affected flags: none of them. 


JSR 

What it does: Jumps to a subroutine anywhere in mem¬ 
ory. Saves the PC (Program Counter) address, plus three, of 
the JSR instruction by pushing it onto the stack. The next RTS 
in the program will then pull that address off the stack and re¬ 
turn to the instruction following the JSR. 

Major uses: As the direct equivalent of BASIC's GOSUB 
command, JSR is heavily used in ML programming to send 
control to a subroutine and then (via RTS) to return and pick 
up where you left off. The larger and more sophisticated a 
program becomes, the more often JSR will be invoked. In 
LADS, whenever something is printed to screen or printer, 
you'll often see a chain of JSRs performing necessary tasks: 

JSR PRNTCR: JSR PRNTSA:JSR PRNTSPACE:JSR 
PRNTNUMJSR PRNTSPACE. This JSR chain prints a carriage 
return, the current assembly address, a space, a number, and 
another space. 

Another thing you might notice in LADS and other ML 
programs is a PLA:PLA pair. Since JSR stuffs the correct return 
address onto the stack before leaving for a subroutine, you 
need to do something about that return address if you later 
decide not to RTS back to the position of the JSR in the pro¬ 
gram. This might be the case if you usually want to RTS, but 
in some particular cases, you don't. For those cases, you can 
take control of program flow by removing the return address 
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from the stack (PLA:PLA will clean off the two-byte address) 
and then performing a direct JMP to wherever you want to go. 

If you JMP out of a subroutine without PLA:PLA, you 
could easily overflow the stack and crash the program. 

Addressing Modes: 

Number of 

Name Format Opcode Bytes Used 

Absolute JSR 1500 $20/32 3 

Affected flags: none of them. 


LDA 

What it does: Loads the Accumulator with a byte from 
memory. Copy might be a better word than load, since the byte 
in memory is unaffected by the transfer. 

Major uses: The busiest place in the computer. Bytes 
coming in from disk, tape, or keyboard all flow through the 
Accumulator, as do bytes on their way to screen or 
peripherals. Also, because the Accumulator differs in some im¬ 
portant ways from the X and Y Registers, the Accumulator is 
used by ML programmers in a different way from the other 
registers. 

Since INY/DEY and INX/DEX make those registers useful 
as counters for loops (the Accumulator couldn't be conve¬ 
niently employed as an index; there is no INA instruction), the 
Accumulator is the main temporary storage register for bytes 
during their manipulation in an ML program. ML program¬ 
ming, in fact, can be defined as essentially the rapid, or¬ 
ganized maneuvering of single bytes in memory. And it is the 
Accumulator where these bytes often briefly rest before being 
sent elsewhere. 
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Addressing Modes: 


Name 

Format 

Opcode 

Number of 
Bytes Used 

Immediate 

LDA #15 

$A9/169 

2 

Zero Page 

LDA 15 

$A5/165 

2 

Zero Page,X 

LDA 15,X 

SB5/181 

2 

Absolute 

LDA 1500 

$ AD/173 

3 

Absolute,X 

LDA 1500,X 

$BD/189 

3 

Absolute,Y 

LDA 1500, Y 

$B9/185 

3 

Indirect,X 

LDA (15,X) 

$A1/161 

2 

Indirect,Y 

LDA (15),Y 

SB1/177 

2 


Affected flags: N Z 


LDX 

What it does: Loads the X Register with a byte from 
memory. 

Major uses: The X Register can perform many of the tasks 
that the Accumulator performs, but it is generally used as an 
index for loops. In preparation for its role as an index, LDX 
puts a value into the register. 

Addressing Modes: 


Name 

Format 

Opcode 

Number of 
Bytes Used 

Immediate 

LDX #15 

$A2/162 

2 

Zero Page 

LDX 15 

SA6/166 

2 

Zero Page,Y 

LDX 15,Y 

$B6/182 

2 

Absolute 

LDX 1500 

$AE/174 

3 

Absolute,Y 

LDX 1500,Y 

$BE/190 

3 

Affected flags: N Z 




LDY 

What it does: Loads the Y Register with a byte from 
memory. 

Major uses: The Y Register can perform many of the 
tasks that the Accumulator performs, but it is generally used 
as an index for loops. In preparation for its role as an index, 
LDY puts a value into the register. 
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Addressing Modes: 


Name 

Format 

Opcode 

Number of 
Bytes Used 

Immediate 

LDY #15 

$A0/160 

2 

Zero Page 

LDY 15 

$A4/164 

2 

Zero Page,X 

LDY 15,X 

$B4/180 

2 

Absolute 

LDY 1500 

SAC/172 

3 

Absolute,X 

LDY 1500,X 

$BC/188 

3 


Affected flags: N Z 


LSR 

What it does: Shifts the bits in the Accumulator or in a 
byte in memory to the right, by one bit. A zero is stuffed into 
bit 7, and bit 0 is put into the carry flag. 


Ql_^^^^^_ *L. 1 

□ 

□ 

□ 

□ 


□ 

□ 

Ur W 


Bit Bit Bit Bit Bit Bit Bit Bit Flag 

7 6 5 4 3 2 1 0 


Major uses: To divide a byte by 2. In combination with 
the ROR instruction, LSR can divide a two-byte or larger num¬ 
ber (see Appendix D). 

LSR:LSR:LSR:LSR will put the high four bits (the high 
nybble) into the low nybble (with the high nybble replaced by 
the zeros being stuffed into the seventh bit and then shifted to 
the right). 

Addressing Modes: 


Name 

Format 

Opcode 

Number of 
Bytes Used 

Accumulator 

LSR 

$4A/74 

2 

Zero Page 

LSR 15 

$46/70 

2 

Zero Page,X 

LSR 15,X 

$56/86 

2 

Absolute 

LSR 1500 

$4E/78 

3 

Absolute,X 

LSR 1500,X 

$5E/94 

3 

Affected flags: N Z C 
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NOP 

What it does: Nothing. No operation. 

Major uses: Debugging. When setting breakpoints with 
BRK, you will often discover that a breakpoint, when exam¬ 
ined, passes the test. That is, there is nothing wrong at that 
place in the program. So, to allow the program to execute to 
the next breakpoint, you cover the BRK with a NOP. Then, 
when you run the program, the computer will slide over the 
NOP with no effect on the program. Three NOPs could cover 
a JSR XXXX, and you could see the effect on the program 


when that particular JSR is 

Addressing Modes: 

eliminated. 

Number of 

Name Format 

Opcode 

Bytes Used 

Implied NOP 

Affected flags: none of them. 

$EA/234 

1 


ORA 

What it does: Logically ORs a byte in memory with the 
byte in the Accumulator. The result is in the Accumulator. An 
OR results in a 1 if either the bit in memory or the bit in the 
Accumulator is 1. 

Major uses: Like an AND mask which turns bits off, ORA 
masks can be used to turn bits on. For example, if you wanted 
to "shift" an ASCII character by setting the seventh bit, you 
could LDA CHARACTER:ORA #$80. The number $80 in bi¬ 
nary is 10000000, so all the bits in CHARACTER which are 
ORed with zeros here will be left unchanged. (If a bit in 
CHARACTER is a 1, it stays a 1. If it is a zero, it stays 0.) But 
the 1 in the seventh bit of $80 will cause a 0 in the CHARAC¬ 
TER to turn into a 1. (If CHARACTER already has a 1 in its 
seventh bit, it will remain a 1.) 
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Addressing Modes 



Number of 

Name 

Format 

Opcode 

Bytes Used 

Immediate 

ORA #15 

$09/9 

2 

Zero Page 

ORA 15 

$05/5 

2 

Zero Page,X 

ORA 15,X 

$15/21 

2 

Absolute 

ORA 1500 

$0D/13 

3 

Absolute,X 

ORA 1500,X 

$lD/29 

3 

Absolute,Y 

ORA 1500, Y 

$19/25 

3 

Indirect,X 

ORA (15,X) 

$01/1 

2 

Indirect,Y 

ORA (15),Y 

$11/17 

2 

Affected flags: N Z 




PHA 

What it does: Pushes the Accumulator onto the stack. 

Major uses: To temporarily (very temporarily) save the 
byte in the Accumulator. If you are within a particular sub¬ 
routine and you need to save a value for a brief time, you can 
PHA it. But beware that you must PLA it back into the Accu¬ 
mulator before any RTS so that it won't misdirect the computer 
to the wrong RTS address. All RTS addresses are saved on the 
stack. Probably a safer way to temporarily save a value (a 
number) would be to STA TEMP or put it in some other tem¬ 
porary variable that you've set aside to hold things. Also, the 
values of A, X, and Y need to be temporarily saved, and the 
programmer will combine TYA and TXA with several PHAs to 
stuff all three registers onto the stack. But, again, matching 
PLAs must restore the stack as soon as possible and certainly 


prior to any RTS. 



Addressing Modes: 


Number of 

Name Format 

Opcode 

Bytes Used 

Implied PHA 

Affected flags: none of them . 

$48/72 

1 
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PHP 

What it does: Pushes the "processor status" onto the top 
of the stack. This byte is the Status Register, the byte which 
holds all the flags: N Z C I D V. 

Major uses: To temporarily (very temporarily) save the 
state of the flags. If you need to preserve the all current con¬ 
ditions for a minute (see description of PHA above), you may 
also want to preserve the Status Register as well. You must, 
however, restore the Status Register byte and clean up the 
stack by using a PLP before the next RTS. 

Addressing Modes: 


Name 

Format 

Opcode 

Number of 
Bytes Used 

Implied 

PHP 

$08/8 

1 

Affected flags: none of them. 




PLA 

What it does: Pulls the top byte off the stack and puts it 
into the Accumulator. 

Major uses: To restore a number which was temporarily 
stored on top of the stack (with the PHA instruction). It is the 
opposite action of PHA (see above). Note that PLA does affect 
the N and Z flags. Each PHA must be matched by a 
corresponding PLA if the stack is to correctly maintain RTS 
addresses, which is the main purpose of the stack. 

Addressing Modes: 


Number of 

Name Format Opcode Bytes Used 

Implied PLA $68/104 1 

Affected flags: N Z 


PLP 

What it does: Pulls the top byte off the stack and puts it 
into the Status Register (where the flags are). PLP is a mne¬ 
monic for PuLl Processor status. 
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Major uses: To restore the condition of the flags after the 
Status Register has been temporarily stored on top of the stack 
(with the PHP instruction). It is the opposite action of PHP 
(see above). PLP, of course, affects all the flags. Any PHP 
must be matched by a corresponding PLP if the stack is to cor¬ 
rectly maintain RTS addresses, which is the main purpose of 


the stack. 



Addressing Modes: 


Number of 

Name Format 

Opcode 

Bytes Used 

Implied PLP 

Affected flags: all of them. 

$28/40 

1 


ROL 

What it does: Rotates the bits in the Accumulator or in a 
byte in memory to the left, by one bit. A rotate left (as op¬ 
posed to an ASL, Arithmetic Shift Left) moves bit 7 to the 
carry, moves the carry into bit 0, and every other bit moves one 
position to its left. (ASL operates quite similarly, except it al¬ 
ways puts a 0 into bit 0.) 


1 

_/~\ S~\ __ r 


1 _ 

Carry 

□ 

a 

□ 


a 

a 

□ 

□ 


Flag Bit Bit Bit Bit Bit Bit Bit Bit 

7 6 5 4 3 2 1 0 

Major uses: To multiply a byte by 2. ROL can be used 
with ASL to multiply multiple-byte numbers since ROL pulls 
any carry into bit 0. If an ASL resulted in a carry, it would be 
thus taken into account in the next higher byte in a multiple- 
byte number. (See Appendix D.) 

Notice how the act of moving columns of binary numbers 
to the left has the effect of multiplying by 2: 

0010 (the number 2 in binary) 

0100 (the number 4) 
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This same effect can be observed with decimal numbers, 
except the columns represent powers of 10: 

0010 (the number 10 in decimal) 

0100 (the number 100) 

Addressing Modes: 


Number of 


Name 

Format 

Opcode 

Bytes Used 

Accumulator 

ROL 

$2A/42 

1 

Zero Page 

ROL 15 

$26/38 

2 

Zero Page,X 

ROL 15,X 

$36/54 

2 

Absolute 

ROL 1500 

$2E/46 

3 

Absolute,X 

ROL 1500,X 

$3E/62 

3 


Affected flags: N Z C 


ROR 

What it does: Rotates the bits in the Accumulator or in a 
byte in memory to the right, by one bit. A rotate right (as op¬ 
posed to a LSR, Logical Shift Right) moves bit 0 into the carry, 
moves the carry into bit 7, and every other bit moves one po¬ 
sition to its right. (LSR operates quite similarly, except it al¬ 
ways puts a 0 into bit 7.) 



Major uses: To divide a byte by 2. ROR can be used with 
LSR to divide multiple-byte numbers since ROR puts any 
carry into bit 7. If an LSR resulted in a carry, it would be thus 
taken into account in the next lower byte in a multiple-byte 
number. (See Appendix D.) 

Notice how the act of moving columns of binary numbers 
to the right has the effect of dividing by 2: 

1000 (the number 8 in binary) 

0100 (the number 4) 
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This same effect can be observed with decimal numbers, 
except the columns represent powers of 10: 

1000 (the number 1000 in decimal) 

0100 (the number 100) 

Addressing Modes: 


Number of 


Name 

Format 

Opcode 

Bytes Used 

Accumulator 

ROR 

S6A/106 

1 

Zero Page 

ROR 15 

$66/102 

2 

Zero Page,X 

ROR 15,X 

$76/118 

2 

Absolute 

ROR 1500 

$6E/110 

3 

Absolute,X 

ROR 1500,X 

$7E/126 

3 


Affected flags: N Z C 


RTI 

What it does: Returns from an interrupt. 

Major uses: None. You might want to add your own 
routines to your machine's normal interrupt routines (see SEI 
below), but you won't be generating actual interrupts of your 
own. Consequently, you cannot ReTurn from Interrupts you 


never create. 



Addressing Modes: 


Number of 

Name Format 

Opcode 

Bytes Used 

Implied RTI 

$40/64 

1 


Affected flags: all of them (Status Register is retrieved from the 
stack). 


RTS 

What it does: Returns from a subroutine jump (caused by 
JSR). 

Major uses: Automatically picks off the two top bytes on 
the stack and places them into the Program Counter. This re¬ 
verses the actions taken by JSR (which put the Program 
Counter bytes onto the stack just before leaving for a sub¬ 
routine). When RTS puts the return bytes into the Program 
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Counter, the next event in the computer's world will be the 
instruction following the JSR which stuffed the return address 
onto the stack in the first place. 


Addressing Modes: 


Number of 

Name Format 

Opcode 

Bytes Used 

Implied RTS 

Affected flags: none of them. 

$60/96 

1 


SBC 

What it does: Subtracts a byte in memory from the byte 
in the Accumulator, and "borrows" if necessary. If a "borrow" 
takes place, the carry flag is cleared (set to 0). Thus, you al¬ 
ways SEC (set the carry flag) before an SBC operation so you 
can tell if you need a "borrow." In other words, when an SBC 
operation clears the carry flag, it means that the byte in mem¬ 
ory was larger than the byte in the Accumulator. And since 
memory is subtracted from the Accumulator in an SBC opera¬ 
tion, if memory is the larger number, we must "borrow." 

Major uses: Subtracts one number from another. 


Addressing 

Modes: 


Number of 

Name 

Format 

Opcode 

Bytes Used 

Immediate 

SBC #15 

$E9/233 

2 

Zero Page 

SBC 15 

$E5/229 

2 

Zero Page,X 

SBC 15,X 

SF5/245 

2 

Absolute 

SBC 1500 

$ED/237 

3 

Absolute,X 

SBC 1500,X 

$FD/253 

3 

Absolute,Y 

SBC 1500,Y 

$F9/249 

3 

Indirect,X 

SBC (15,X) 

$El/225 

2 

Indirect,Y 

SBC (15),Y 

$F1/241 

2 

Affected flags: N Z C V 




SEC 

What it does: Sets the carry (C) flag (in the processor Sta¬ 
tus Register byte). 


266 






6502 Instruction Set 


Major uses: This instruction is always used before any 
SBC operation to show if the result of the subtraction was 
negative (if the Accumulator contained a smaller number than 
the byte in memory being subtracted from it). See SBC above. 


Addressing Modes: 


Number of 

Name Format 

Opcode 

Bytes Used 

Implied SEC 

Affected flags: C 

$38/56 

1 


SED 

What it does: Sets the decimal (D) flag (in the processor 
Status Register byte). 

Major uses: Setting this flag puts the 6502 into decimal 
arithmetic mode. This mode can be easier to use when you are 
inputting or outputting decimal numbers (from the user of a 
program or to the screen). Simple addition and subtraction can 
be performed in decimal mode, but most programmers ignore 
this feature since more complicated math requires that you re¬ 
main in the normal binary state of the 6502. 

Note: Commodore computers automatically clear this mode 
■when entering ML via SYS. However, Apple and Atari computers 
can enter ML in an indeterminant state. Since there is a possibil¬ 
ity that the D flag might be set (causing havoc) on entry to an ML 
routine, it is sometimes suggested that owners of these two 
computers use the CLD instruction at the start of any ML program 
they write. Any ML programmer must CLD following any delib- 


erate use of the decimal mode. 



Addressing Modes: 



Name Format 

Opcode 

Number of 
Bytes Used 

Implied SED 

Affected flags: D 

$F8/248 

1 
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SEI 

What it does: Sets the interrupt disable flag (the I flag) in 
the processor status byte. When this flag is up, the 6502 will 
not acknowledge or act upon interrupt attempts (except a few 
nonmaskable interrupts which can take control in spite of this 
flag, like a reset of the entire computer). The operating sys¬ 
tems of most computers will regularly interrupt the activities 
of the chip for necessary, high-priority tasks such as updating 
an internal clock, displaying things on the TV, receiving sig¬ 
nals from the keyboard, etc. These interruptions of whatever 
the chip is doing normally occur 60 times every second. To 
find out what housekeeping routines your computer interrupts 
the chip to accomplish, look at the pointer in $FFFE/FFFF. It 
gives the starting address of the maskable interrupt routines. 

Major uses: You can alter a RAM pointer so that it sends 
these interrupts to your own ML routine, and your routine then 
would conclude by pointing to the normal interrupt routines. 
In this way, you can add something you want (a click sound 
for each keystroke? the time of day on the screen?) to the nor¬ 
mal actions of your operating system. The advantage of this 
method over normal SYSing is that your interrupt-driven rou¬ 
tine is essentially transparent to whatever else you are doing 
(in whatever language). Your customization appears to have 
become part of the computer's ordinary habits. 

However, if you try to alter the RAM pointer while the 
other interrupts are active, you will point away from the nor¬ 
mal housekeeping routines in ROM, crashing the computer. 
This is where SEI comes in. You disable the interrupts while 
you LDA STA LDA STA the new pointer. Then CLI turns the 
interrupt back on and nothing is disturbed. 

Interrupt processing is a whole subcategory of ML 
programming and has been widely discussed in magazine arti¬ 
cles. Look there if you need more detail. 

Addressing Modes: 

Number of 

Name Format Opcode Bytes Used 

Implied SEI $78/120 1 

Affected flags: I 
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STA 

What it does: Stores the byte in the Accumulator into 
memory. 

Major uses: Can serve many purposes and is among the 
most used instructions. Many other instructions leave their re¬ 
sults in the Accumulator (ADC/SBC and logical operations 
like ORA), after which they are stored in memory with STA. 

Addressing Modes: 


Name 

Format 

Opcode 

Bytes Used 

Zero Page 

STA 15 

$85/133 

2 

Zero Page,X 

STA 15,X 

$95/149 

2 

Absolute 

STA 1500 

$8D/141 

3 

Absolute,X 

STA 1500,X 

$9D/157 

3 

Absolute,Y 

STA 1500, Y 

$99/153 

3 

Indirect,X 

STA (15,X) 

$81/129 

2 

Indirect,Y 

STA (15),Y 

$91/145 

2 

Affected flags: none of them. 




STX 

What it does: Stores the byte in the X Register into 
memory. 

Major uses: Copies the byte in X into a byte in memory. 

Addressing Modes: 


Name 

Format 

Opcode 

Number of 
Bytes Used 

Zero Page 

STX 15 

$86/134 

2 

Zero Page,Y 

STX 15,Y 

$96/150 

2 

Absolute 

STX 1500 

$8E/142 

3 

Affected flags: none of them. 




STY 

What it does: Stores the byte in the Y Register into 
memory. 

Major uses: Copies the byte in Y into a byte in memory. 
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Addressing Modes: 


Name Format 

Zero Page STY 15 

Zero Page,X STY 15,X 

Absolute STY 1500 

Affected flags: none of them. 


Opcode 

$84/132 

$94/148 

$8C/140 


Number of 
Bytes Used 

2 

2 

3 


TAX 

What it does: Transfers the byte in the Accumulator to 
the X Register. 

Major uses: Sometimes you can copy the byte in the 
Accumulator into the X Register as a way of briefly storing the 
byte until it's needed again by the Accumulator. If X is cur¬ 
rently unused, TAX is a convenient alternative to PHA (an¬ 
other temporary storage method). 

However, since X is often employed as a loop counter, 
TAX is a relatively rarely used instruction. 

Addressing Modes: 

Number of 

Name Format Opcode Bytes Used 

Implied TAX $AA/170 1 

Affected flags: N Z 


TAY 

What it does: Transfers the byte in the Accumulator to 
the Y Register. 

Major uses: Sometimes you can copy the byte in the 
Accumulator into the Y Register as a way of briefly storing the 
byte until it's needed again by the Accumulator. If Y is cur¬ 
rently unused, TAY is a convenient alternative to PHA (an¬ 
other temporary storage method). 

However, since Y is quite often employed as a loop 
counter, TAY is a relatively rarely used instruction. 
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Addressing Modes: 


Name Format 

Implied TAY 

Affected flags: N Z 


Number of 
Opcode Bytes Used 

$A8/168 1 


TSX 

What it does: Transfers the Stack Pointer to the X 
Register. 

Major uses: The Stack Pointer is a byte in the 6502 chip 
which points to where a new value (number) can be added to 
the stack. The Stack Pointer would be "raised" by two, for 
example, when you JSR and the two bytes of the Program 
Counter are pushed onto the stack. The next available space 
on the stack thus becomes two higher than it was previously. 
By contrast, an RTS will pull a two-byte return address off the 
stack, freeing up some space, and the Stack Pointer would 
then be "lowered" by two. 

The Stack Pointer is always added to $0100 since the 
stack is located between addresses $0100 and $01FF. 


Addressing Modes: 


Number of 

Name Format 

Opcode 

Bytes Used 

Implied TSX 

Affected flags: N Z 

$BA/186 

1 


TXA 

What it does: Transfers the byte in the X Register to the 
Accumulator. 

Major uses: There are times, after X has been used as a 
counter, when you'll want to compute something using the 
value of the counter. And you'll therefore need to transfer the 
byte in X to the Accumulator. For example, if you search the 
screen for character $75: 
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CHARACTER = $75:SCREEN = 

$0400 
LDX #0 

LOOP LDA SCREEN,X:CMP 
#CHARACTER:BEQ MORE:INX 
BEQ NOTFOUND 
MORE TXA 

NOTFOUND BRK 

In this example, we want to perform some action based 
on the location of the character. Perhaps we want to remem¬ 
ber the location in a variable for later reference. This will re¬ 
quire that we transfer the value of X to the Accumulator so it 
can be added to the SCREEN start address. 

Addressing Modes: 

Number of 

Name Format Opcode Bytes Used 

Implied TXA $8A/138 1 

Affected flags: N Z 

TXS 

What it does: Transfers the byte in X Register into the 
Stack Pointer. 

Major uses: Alters where, in the stack, the current "here's 
storage space" is pointed to. There are no common uses for 
this instruction. 

Addressing Modes: 

Number of 

Name Format Opcode Bytes Used 

Implied TXS $9A/154 1 

Affected flags: none of them. 


; (this prevents an endless loop 
; (you now know the charac¬ 
ter's location) 
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TYA 

What it does: Transfers the byte in the Y Register to the 
Accumulator. 

Major uses: See TXA. 


Addressing Modes: 


Number of 

Name Format 

Opcode 

Bytes Used 

Implied TYA 

Affected flags: N Z 

$98/152 

1 
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Modifying LADS: 

Adding Error Traps, 
RAM-Based Assembly, and 
a Disassembler 

Special Notes on the Construction of 
Atari and Apple LADS 


Imagine how nice it would be if you could add any additional 
commands to BASIC that you desired. You wouldn't just tem¬ 
porarily wedge the new commands into a frozen ROM BASIC. 
Instead, you would simply define the new commands, and 
they would then become a permanent part of your program¬ 
ming language. 

This freedom to change a language is called extensibility. 
It's one of the best features of Forth and a few other lan¬ 
guages. Extensibility opens up a language. It gives the pro¬ 
grammer easy access to all aspects of his programming tool. 
LADS, too, is extensible since the internals of the assembler 
are thoroughly mapped, documented, and explained in this 
book. You can customize it at will, building in any features 
that you would find useful. 

After exploring the details of the LADS assembler and us¬ 
ing LADS to write your own machine language, you may have 
thought of some features or pseudo-ops that you would like to 
add. In this chapter, we'll show how to make several different 
kinds of modifications. These examples, even if they're not 
features of use to you, will demonstrate how to extend and 
customize the language. We'll add some new error traps, cre¬ 
ate a disassembler, and make a fundamental change to the 
Commodore and Apple LADS—the capability of assembling 
directly from RAM. (The Atari version has this feature built-in 
already.) 

At the end of this chapter we'll cover the details of the 
Atari and Apple LADS source code where they differ from the 
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general LADS source listings (printed at the end of each chap¬ 
ter). The three versions—Commodore, Atari, and Apple—are 
functionally identical, so the descriptions throughout the book 
apply to each version. However, a few adjustments had to be 
made: input/output variations, a special source code editor for 
the Atari, etc. All these will be discussed below. But first, let's 
see some examples of how to customize LADS. 

A Naked Mnemonic Error Trap 

The original version of LADS notifies you of most serious er¬ 
rors: branch out of range, duplicated or undefined labels, na¬ 
ked labels (labels without arguments), invalid pseudo-ops, no 
starting address, file not found on disk, and various syntax er¬ 
rors. Other kinds of errors are forgiven by LADS since it can 
interpret what you meant to type in your source code. For 
example, LADS can interpret what you meant when you type 
errors like these: 

100 INY #77; (adding an argument to a one-byte opcode) 

100 INY : LDA #15:INY:INX;(extra spaces before or after 
colons) 

The source code in these examples will be correctly 
assembled. Also, if you forget to leave a space between a mne¬ 
monic and its argument (like: LDA# 15), that sort of error will 
be trapped and announced. 

But the original LADS didn't have a built-in trap for na¬ 
ked mnemonics. If you wrote: 

100 INC:INY:LDA #15 ; (that "INC" requires an argument) 

the assembler would have crashed. No error message, no 
warning, just a crash. 

Programmers who tested the early versions of LADS 
asked that this error be trapped. That is, if this mistake was 
made during the typing of an ML program's source code, it 
shouldn't cause the assembler to go insane. The following two 
error-trap modifications have been made a permanent part of 
LADS (and are already in the object code version you typed in 
from this book or received on disk). 

To expose naked mnemonic errors, a special trap was in¬ 
serted into the Eval subprogram (see Listing 11.1) 
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After Eval has determined (line 930 of Program 3-1) that 
the mnemonic under evaluation does require an argument (it's 
not like INY, which uses Implied addressing and never has an 
argument), Eval then goes down to check to see if the argu¬ 
ment is a label or a number (1460). 

Here's where we can check to see if the programmer for¬ 
got to give an argument. If the mnemonic is followed by a co¬ 
lon or a 0 (end of logical line), that's a sure signal that the 
argument has been left out. We can load in the character just 
after the mnemonic (see line 1474, Listing 11.1). If there is a 
space character (#32), all is well and we can continue (1480) 
with our assembly. If not, we jump to L700, the error-report¬ 
ing routine which will print the error and ring the bell. 

A Trap for Impossible Instructions 

Another programmer who tested LADS was just starting to 
learn machine language. Unfamiliar with some of the 
mnemonics and addressing modes, he once tried to assemble a 
line like this: 

100 LDA 15,Y 

not knowing that Zero Page,Y addressing is a rare addressing 
mode, exclusively reserved for only two mnemonics: LDX and 
STX. But LADS didn't crash on this. Instead, it assembled an 
LDA 15,X (the correct addressing mode, but fatal to his 
particular program since he was trying to use the Y Register as 
an index). 

The trap was inserted into LADS (Listing 11.2) to make a 
harmless substitution, to assemble an Absolute,Y (at a zero 
page address). Thus, the programmer's intent is preserved, but 
the illegal addressing mode is replaced. 

By the time Eval reaches this point, it has already filtered 
out many other possible addressing modes. Eval knows that 
the addressing mode is some form of ,X or ,Y and that it's 
Zero Page. Eval first checks to see if we are dealing with an 
attempted ,Y addressing mode (CMP #89, the Y character). If 
not, we continue with the assembly (5271) by a BNE to line 
5274. 
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But if it is a ,Y, we check the opcode to see if it is LDX, 
the only correct opcode for this addressing mode. If so, we 
continue. 

However, if it is some other mnemonic like LDA or STY, 
this ,Y addressing mode is illegal and we make the adjustment 
to Absolute,Y by a JMP to the area of Eval where that 
addressing mode is accomplished. 

Most illegal addressing will be reported by LADS. Never¬ 
theless, if there's a peculiar error that you often make when 
programming and LADS doesn't alert you, just add an error¬ 
reporting trap or have the assembler automatically correct the 
problem. 

A final minor modification to the PDISK routine in the 
Pseudo subprogram will permit embedded keywords in 
filenames when using the .D pseudo-op to save object code to 
disk. (The Atari version will not need this modification.) As 
printed in this book, LADS will correctly extend and print a 
filename following the .D pseudo-op which contains a 
keyword. For example, ,D OLDSTOP will look correct 
onscreen. However, LADS will send the tokenized keyword to 
the disk as the filename. This will result in unpredictable 
filenames when you use BASIC commands as part of a 
filename. To correct this, remove line 1190 of Program 8-1 and 
adjust the following lines in the Pseudo subprogram. Then re¬ 
assemble a new version of LADS: 

1230 PD1 LDY #0 

1231 PDLO LDA LABEL,Y;BEQ PDEN:STA FILEN,Y:INY:JMP 
PDLO; MOVE NAME 

1239 PDEN LDA #44; PUT , P,W (PROGRAM, VJRITE) SIGNAL 
S ONTO FILENAME 


280 




(TRAP FOR NAKED MNEMONICS ERROR) 
LABEL+3:CMP #32:BEQ GVEG:JMP L700; (TEST FOR "INC:" TYPE ERROR) 


Modifying LADS: Special Notes on Atari and Apple LADS 



281 







Modifying LADS: Special Notes on Atari and Apple LADS 


A Remarkably Simple, Yet Radical, Change 
Since LADS uses symbols instead of numbers, it's fairly easy 
to change, to make it what you want it to be. What's more, all 
the programs you write with LADS will also be symbolic and 
easily changed. Let's make a radical change to LADS and see 
how easy it is to profoundly alter the nature of the assembler. 

As designed, LADS reads source code off a disk program 
file. Let's make it read its source code from within the comput¬ 
er's RAM memory, instead of from disk. This makes two 
things possible: 1. You can change source code, then test it by 
a simple SYS to LADS. 2. Tape drive users can use LADS. 

This version of LADS isn't functionally different from the nor¬ 
mal version since long, linked assembly will still be coming 
from disk files. However, it can be a more convenient way to 
write and debug smaller ML programs or subroutines. Every¬ 
thing works the same when you assemble, except that the first 
(or only) source code program resides in RAM instead of on 
disk. Commodore and Atari RAM-LADS versions can use 
linked files, but the Apple RAM-based version cannot link 
files as it can in the normal Apple LADS. 

You make a radical change whenever you change *= 864 
to *= 5000. You are making a small change at the beginning, 
the root, of your source code. After making this change, the 
entire program is assembled at address 5000 instead of address 
864. The effect—in the usual sense of the term—is quite rad¬ 
ical. The effort on your part, however, is rather minor. Like¬ 
wise, we can drastically alter the way that LADS works by 
making a few minor changes to the symbols in LADS. 

Our goal is to make LADS read source code from memory 
instead of from disk files. First, we need to add two new 
pointers to the LADS zero page equates (in the Defs file). We 
create PMEM. It will serve as a dynamic pointer. It will always 
keep track of our current position in memory as we assemble 
source code. 

The intelligence in the disk drive keeps track of where we 
are in a file; whenever we call CHARIN, it increments a 
pointer so that the next CHARIN call will pull a new byte into 
A, the Accumulator. But we're going to be reading from mem¬ 
ory so we'll need to update our own dynamic pointer. To cre¬ 
ate this pointer, just type in a new line in Defs: PMEM = $xx 
(whatever zero page, two-byte space is safe in your computer). 
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The other new pointer we need to define in zero page will 
tell LADS where your BASIC RAM memory starts, where a 
program in BASIC starts. To create this register, just look at a 
map of the zero page of your particular computer and define: 
RAMSTART = $xx (whatever it is). 

Note: These definitions have already been added to the 
Commodore versions of the Defs subprogram in this book. If 
you are creating a RAM-based version of LADS for the Apple, 
add the following two lines to the Apple Defs file: 

135 RAMSTART = $67; POINTER TO START OF RAM 
MEMORY 

157 PMEM = $E2 

The Apple version of the RAM-based LADS requires the same 
changes to the Eval subprogram as Commodore machines re¬ 
quire. However, no changes are needed in the Pseudo or 
Openl subprograms. The one difference between Commodore 
and Apple versions in the Getsa subprogram is that Apple re¬ 
quires #$2A in line 300 instead of the #172. 

A New CHARIN 

Next, we need to change the CHARIN subroutine itself. As 
LADS normally runs, it goes to BASIC's get-a-byte subroutine 
whenever CHARIN is invoked. This won't work for memory- 
based source code. BASIC RAM cannot, alas, be OPENed as if 
it were a file. So, since LADS is peppered with references to 
CHARIN, we can just undefine CHARIN in the Defs sub¬ 
program by putting a semicolon in front of it (Listing 11.3). 

Similarly, CHKIN is scattered throughout LADS to reopen 
file #1, the read-code-from-disk file. We're not using file #1 in 
this version of LADS, so we add a semicolon to its definition 
too (Listing 11.4). 

But throughout LADS there are references to these two 
subroutines. We need to write a new CHARIN and CHKIN to 
replace the ones we just obliterated. LADS will then have 
somewhere to go, something to do, as it comes upon 
CHARINs or CHKINs throughout the code. We do this by 
adding to the Getsa subprogram (Listing 11.5). 
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Line 410 is just an RTS. It's a placebo. We never want to 
reopen file #1 (CHKIN's normal job), so whenever LADS tries 
to do that, we JSR/RTS and nothing happens. Something does 
have to happen with CHARIN, however. CHARIN's job is to 
fetch the next byte in the source code and give it to the Accu¬ 
mulator. So this new version of CHARIN (390-400) increments 
PMEM, our new RAM memory pointer, saves Y, loads the 
byte, saves the Status Register, restores Y, restores the Status 
Register, and returns. This effectively imitates the actions of 
the normal disk CHARIN, except it draws upon RAM for 
source code. 

Here you can see one of those rare uses for PHP and PLP. 
There are times when it's not enough to save the A, Y, and X 
Registers. This is one of those times. INDISK returns to Eval 
only when it finds a colon (end of source instruction), a semi¬ 
colon (end of instruction, start of comment), or a zero (end of 
BASIC program line, hence end of source instruction). When 
we get a zero when we LDA, the zero flag will be set. But the 
LDY instruction will reset the zero flag. So, to preserve the ef¬ 
fect of LDA on the zero flag, we PHP to store the flags on the 
stack. Then, after the LDY, we restore the status of the flags, 
using PLP before we return to the Indisk file. This way, what¬ 
ever effect the LDA had on the flags will be intact. Indisk can 
thus expect to find the zero flag properly set if a particular 
LDA is pulling in the final 0 which signifies the end of a line 
in the BASIC RAM source code. 

After making these substitutions to LADS, we need to re¬ 
move the two references to Openl (the routine which opens a 
disk file for source code reading) in the Eval subprogram. 
These references are at lines 350 and 4350. We can simply re¬ 
move them from assembly by putting a semicolon in front of 
them (Listing 11.6). 

Early in Eval, we have a JSR GETSA. This is the GET- 
Start-Address-from-disk routine. We want to change this to: 

JSR MEMSA. GETSA isn't needed. MEMSA will perform the 
same job, but for memory-based source code instead of disk- 
based source code. MEMSA is found in the Getsa subprogram 
(Listing 11.7). 

The first thing that MEMSA does is to put the start-of- 
BASIC-RAM pointer into PMEM (our dynamic pointer). This 
positions us to the first byte in the source code. Then it pulls 
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off enough bytes to point to the * in the start address defi¬ 
nition in the source code. This is just what Getsa does for a 
disk file. The rest of MEMSA is identical to Getsa. 

Second Generation LADS 

That's it. These few substitutions and LADS will read a source 
file from RAM memory. You can still use .D NAME to create a 
disk object code file. You can still send the object code dis¬ 
assembly to a printer with .P. All the other pseudo-ops still 
work fine. A radical change in ten minutes. 

The Getsa subprogram contains a complete, step-by-step 
description of this disk-to-RAM modification of LADS. After 
you've made the changes to the source code (and saved them 
to disk), just load in the normal disk version of LADS, enter 
Defs as the starting file for assembly, and SYS to LADS. It will 
grind out a brand new, RAM-based assembler for you. 

As always, when making a new version of your LADS 
assembler, be sure to direct object code to the disk (use the .D 
pseudo-op) so that you won't overwrite the working LADS in 
the computer. Also be sure you've given the new version a 
filename that doesn't already exist on the disk. 
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350 ;JSR OPENl; OPEN READ FILE (SOURCE CODE FILE ON DISK) 

4350 ;JSR OPENl; OPEN INPUT FILE (POINT IT TO THE 1ST BYTE IN THE FILE) 
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A Disassembler 

In a perfectly symmetrical universe, with a right hand for ev¬ 
ery left, and a north pole for every south, you could transform 
an assembler into a disassembler by just making it run 
backwards. 

Unfortunately, ours is not such a universe. Since LADS 
turns source code into object code, it would seem possible to 
tinker with it and adjust it a bit and make it turn object code 
back into source code, to disassemble. Not so. We have to link 
two new files onto LADS to add a disassembler function: Dis 
and Dtables. 

Personal Programming Style 

Dis is an example of how a fairly complex ML program can be 
constructed using LADS. The relatively few comments reflect 
my personal style of programming. I find many of the variable 
names are meaningful enough to make the code under¬ 
standable, especially since the purpose of the lookup tables in 
Dtables is fairly easy to see. 

The relatively few comments in the compressed code in 
Dis also allow you to look at more instructions at the same 
time on the screen. This can help during debugging since you 
might be able to more quickly locate a fault in the overall logic 
of a program. Nevertheless, many programmers find such 
dense code hard to read, hard to debug, and generally 
inefficient. 

Obviously, you should write the kind of source code that 
works for you. The degree of compression is a matter of 
programming style and personal preference. Some program¬ 
ming teachers insist on heavy commenting and airy, de¬ 
compressed coding. Perhaps this emphasis is appropriate for 
students who are just starting out with computing for the 
same reasons that penmanship is stressed when students are 
just starting to learn how to write. But you needn't feel that 
there is only one programming style. There are many paths, 
many styles. 

How to Use the Disassembler 

For convenience, Dis is set to start at 17000. That's an easy 
number to remember when you want to SYS, CALL, or USR 
to see a disassembly. The version at the end of this chapter is 
fully functional, but you might want to make modifications. As 
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printed, it will ask for the start address location in RAM of the 
object code you want to see listed. Notice that the object code 
must be residing in RAM to be disassembled. (It would be 
simple, though, to make a disassembler which operated on 
disk or tape code.) Then it will disassemble until you hit the 
STOP or BREAK key. You might want to adjust it— you could 
have it assemble 20 instructions and then halt until a key was 
pressed. Or you might want to make it print disassemblies to 
the printer. Or it could ask for both starting and ending ad¬ 
dresses before it begins. To have the disassembler you prefer, 
just modify the code. 

The disassembler is included in this book because it dem¬ 
onstrates compressed LADS source code and it also shows 
how LADS itself can be expanded while borrowing from exist¬ 
ing LADS subroutines like STOPKEY and PRNTNUM. 

The source code in other parts of the book is somewhat 
artificial: Each line contains only one mnemonic followed by a 
description, a comment about the purpose of that line. Nor¬ 
mally, such extensive commentary will not be necessary, and 
many lines can contain multiple statements separated by co¬ 
lons. Dis is an example of LADS source code as many pro¬ 
grammers will probably write it. 

To add the disassembler to LADS, change the .END DEFS 
at the end of the Tables subprogram in LADS to .FILE DIS. 
This will cause the file for Dis to be assembled along with 
LADS. Dis will link to Dtables, which ends with .END DEFS 
to permit the second pass through the combined LADS/Dis 
code. 

Keyboard Input 

Let's briefly outline the structure and functions of the 
disassembler. It starts off by printing its prompt message 
called DISMESS (30). The actual message is located in line 
710. PRNTMESS is a subroutine within LADS which prints 
any message pointed to by the variable TEMP. 

Then $3F, the ? symbol, is printed and STARTDIS (50) 
sets the hexflag up so that number printouts will be in hexa¬ 
decimal. If you prefer decimal, LDA #0 and store it in 
HXFLAG. 

Now there's an input loop to let the user input a decimal 
start address, character by character. If a carriage return is de¬ 
tected (90), we leave the loop to process the number. The 
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number's characters are stored in the LABEL buffer and are 
also printed to the screen as they are entered (100). 

When we finish getting the input, the LADS Valdec rou¬ 
tine changes the ASCII numbers into a two-byte integer in the 
variable RESULT. We pick up the two-byte number and store 
it in the variable SA which will be printed to the screen as the 
address of each disassembled mnemonic. 

Line 150 is a bit obscure. It wasn't originally written this 
way, but testing revealed that the JSR GB in line 190 would 
increment the start address right off the bat (before anything 
was disassembled or printed). At the same time, putting that 
increment lower in the main loop was inconvenient. So the 
easiest thing was to simply accept a start address from the 
user, then decrement it. The disassembler will start off with a 
start address that is one lower than the user intends, but that 
early increment will fix things up. Thus, the variable PMEM 
will hold a number which is one lower than the variable SA. 
Both these variables are keeping track of where in memory we 
are currently disassembling. But we've got to distinguish in 
this way between SA which prints to the screen and PMEM 
which tells the computer the current location. 

Battling Insects 

This is a good place to observe that programming is never a 
smooth trip from the original concept to the final product. No 
programmer is so well-prepared or knowledgeable that he or 
she simply sits down and calmly creates a workable program. 
If you find yourself scratching your head, circling around a 
bug and not trapping it, spending hours or days trying to see 
what could possibly be wrong—you're in good company. I've 
worked with some very experienced, very talented people and 
have yet to see someone fashion a program without snags. 
And the more significant and sophisticated the program, the 
more snags it has. 

All that can be done, when you hit a snag, is to single- 
step through the offending area of your program, or set BRK 
traps, or puzzle over the source code, or try making some ten¬ 
tative reassemblies (not knowing for sure if your changes will 
have any salutary effect), or sometimes even toss out an entire 
subroutine and start over. For example, I wrote the rough 
draft, the first draft of this disassembler, in about two hours. I 
didn't have the final version working until I'd spent two full 
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days battling bugs. Some were easy to fix, some were mon¬ 
sters. It took about ten minutes to cure that problem with the 
start address being one too high. But it took hours to locate an 
error in the disassembler tables, Dtables. 

After the user has input the start address, TEMP is made 
to point to the LABEL buffer and VALDEC is invoked. 
VALDEC leaves the result of an ASCII-to-integer conversion in 
the RESULT variable. That number is stored in PMEM and SA 
(140-150). One final adjustment restores SA to the original 
number input by the user. SA will only print addresses 
onscreen; PMEM is the real pointer to the current address dur¬ 
ing disassembly. The decrementing of PMEM, made necessary 
by that JSR GB early in the main loop, is not necessary for SA. 
(SA is not incremented by the GB subroutine.) 

GETBYTE: The Main Loop 

Now we arrive at the main loop. GETBYTE (190) first tests to 
see if the user wants to stop disassembly via the STOPKEY 
subroutine (in the Eval subprogram within LADS). Then the 
GB subroutine (690) raises the memory pointer PMEM and 
fetches a byte from memory. This byte is saved in the FILEN 
buffer and will act as an index, a pointer to the various tables 
in the Dtables subprogram. For purposes of illustration, let's 
assume that the byte we picked up held the number 1. One is 
the opcode for ORA (Indirect,X). We can trace through the 
main loop of Dis and see what happens when Dis picks up a 
1 . 

The 1 is transferred to the Y Register (200), and we then 
load whatever value is in MTABLE +1 since we LDA 
MTABLE,Y and Y holds a 1. This turns out to be the number 
2, signifying that we've come upon the second opcode (if the 
opcodes are arranged in ascending order). Notice that BNE 
will make us skip over the next couple of lines. Anytime we 
pull a 0 out of MTABLE it means that there is no valid opcode 
for that number, and we just print the address, the number, 
and a question mark ($3F). Then we raise the printout address 
pointer with INCSA and return to fetch the next byte 
( 210 - 220 ). 
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However, in our example, we did find something other 
than a 0 in MTABLE. We've got a valid opcode. Now we have 
to find out its addressing mode and print a one- or two-byte 
argument, depending on that addressing mode. Is it Immediate 
addressing like LDA #15 (one-byte argument) or Absolute 
addressing like LDA 1500 (two-byte argument)? 

Having found a valid opcode, we now extract the mne¬ 
monic from WORDTABLE and print it out (240-330). First we 
multiply our number from MTABLE by 3 since each mne¬ 
monic has three letters. The number we found in MTABLE 
was a 2, so we have a 6 after the multiplication. That means 
that our mnemonic will start in the sixth position within 
WORDTABLE. We add 6 to the address of WORDTABLE 
(280-290) and leave the variable PARRAY pointing at the first 
letter O in WORDTABLE. 

Now the SA (current disassembly address) is printed 
onscreen with PRNTSA and a space is printed (300). We then 
print ORA onscreen, one letter at a time (310-330), and print 
another space. Now we're ready to figure out the addressing 
mode. 

Addressing Type 

We had previously saved our original byte (the number 1 in 
our example) in FILEN (190). We now retrieve it, pull out the 
position value from MTABLE (getting the number 2), and load 
in the addressing mode type from TYPETABLE (see lines 
360-410 in the Dtables subroutine listing at the end of this 
chapter). It turns out that the number 2 we're using in our 
example will pull out a number 4 from TYPETABLE. The 
number 4 identifies this as an Indirect X addressing mode. 

Between lines 380 and 410 we have a simple decision 
structure, much like BASIC's ON-GOTO structure. In our 
example, the CMP #4 in line 390 will now send us to a rou¬ 
tine called DINDX which handles Indirect X addressing. 

DINDX (460) takes advantage of several routines which 
print symbols to the screen for us: LEPAR prints a left paren¬ 
thesis; DOONE fetches and prints the next number in RAM 
memory (the argument for the current mnemonic); COMX 
prints a comma and an X; and RIPAR finishes things off with 
a right parenthesis. Now we have something like this 
onscreen: 
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0360 ORA (12,X) 

so our disassembly of this particular instruction is complete. 
We JMP to ALLDONE (600) and print a carriage return and 
start the main loop over again to disassemble the next 
mnemonic. 

Other mnemonics and other addressing modes follow a 
similar path through Dis as they are looked up in Dtables and 
then printed out. 

By the way, if you look at lines 650-680 on page 296, 
you'll see a peculiar #" pseudo-op. It allows you to specify a 
character instead of a number for immediate addressing. In 
line 650 we need to print a comma to the screen. You could 
LDA #44 (the ASCII code for a comma) and JSR PRINT. 

But if you don't want to look up the ASCII code, LADS 
will do it for you. Just use a quote after the # symbol: LDA 
#", (followed by the character you're after; in this case, the 
comma). The correct value for the character will be inserted 
into your object code. You can see that we used this pseudo¬ 
op to load the value for X, Y, ), and ( symbols as well, in lines 
650-680. 
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590 DJUMPIND JSR LEPAR:JSR DOTOO:JSR RIPARsJMP ALLDONE; IND. JUMP (TYPE 10) 
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Notes on the Structure of Atari LADS 

The Atari and Commodore machines have one thing in com¬ 
mon—a 6502 microprocessor. The Atari 6502 runs at 1.79 
megahertz, making it somewhat faster than the Commodore 
machines. However, the non-6502 hardware—input/output, 
graphics, and sound—is entirely different. Although many 
Atari enthusiasts argue that it is the most powerful available 
on any 6502-based microcomputer, the operating system of 
the Atari does not perform basic tasks like input/output in the 
same manner as Commodore machines. An understanding of 
these differences is essential to fully understand the Atari 
LADS source code. 

The common tasks machine language programs need to 
perform with input/output are: open a file, read a character or 
block of characters from the file, write a character or block of 
characters to a file, and close the file. With the Commodore 
operating system (often called the Kernal), there are separate 
routines for each task. You approach each task by adjusting 
the Accumulator, X, and Y Registers as necessary, as well as 
storing any required information into special memory locations 
(usually in zero page). See the discussion of OPEN1 in Chap¬ 
ter 5 for details. For example, the Commodore OPEN must 
know where to find the filename, the length of the filename, 
parameters like read or write, and the device number. 

On the Atari, there is just one entry point—$E456, called 
CIO, for all these tasks. Instead of separate entry points, CIO 
checks a memory location for the command, a number 
representing the action to take, such as OPEN, CLOSE, PUT, 
or GET. Other memory locations hold the starting address of a 
filename or buffer, and the length of the filename or buffer. 
Extra locations hold specialized information. Each block of I/O 
information is called an IOCB, for Input/Output Control 
Block. There are eight of these IOCBs, numbered 0 to 7. IOCB 
0 is reserved for the screen editor, and 7 is usually reserved 
for language I/O, such as LPRINT in BASIC, or SAVE in the 
LADS editor. 

Although much of LADS is concerned with internal data 
base-type manipulations, such as looking up a label or convert¬ 
ing a mnemonic, there is also a good amount of Commodore- 
style input/output. Routines like OPEN, CLRCHN, CHKIN, 
and PRINT are actual ROM entry points on Commodore 
computers. To avoid complex changes in the source code, 


299 



Modifying LADS: Special Notes on Atari and Apple LADS 


Atari LADS has a special file called Kernal (see program list¬ 
ings below), which transparently supports all these routines, 
making the conversion between the Atari's I/O system and 
the Commodore's transparent. Explanations of Commodore 
I/O given in Chapter 5, then, are valid as well for the Atari 
LADS system. In other words, when the original Commodore 
version of LADS was translated to the Atari, the Kernal sub¬ 
program was added to mimic the operations of the Com¬ 
modore operating system I/O. This emulation allows the 
descriptions of LADS to remain essentially identical for non- 
Commodore machines. 

Atari Memory Layout 

Memory maps for Commodore computers are relatively sim¬ 
ple. Zero page is used by the system, page 1 for the stack, 
page 2 for operating system storage, and page 3 for the cas¬ 
sette buffer(s). On the Commodore PET, page 4 (starting at ad¬ 
dress 1024) on up to location 32768 is free RAM. 32768 is the 
start of screen memory on the PET, and never moves. On the 
64, the screen occupies page 4 up to 2047 ($07FF). Free RAM 
starts at 2048 ($0800) all the way up to 40959 ($9FFF). BASIC 
in ROM and the operating system start at 40960 ($A000). Al¬ 
though there is hidden memory beneath the ROMs on both 
the Atari XL series and the Commodore 64, LADS does not 
use it. 

The Atari memory layout is less fixed. Zero page from 
locations 0 to 127 completely used by the operating system. 

An applications program like BASIC can use almost all the 
memory from 128 to 255. Since Atari LADS operates outside 
the BASIC environment, it is free to use this zero page mem¬ 
ory upwards from location $80. 

Unlike the PET and 64, Atari machines have no set 
amount of memory. Atari 400/800 owners have the option of 
expanding to 48K, without using bank selection or other tricks. 
Without DOS, free memory starts at $0700 (page 6 is re¬ 
served). With DOS, free RAM starts at about $2000. The 
screen memory, a little over IK in length, is stored at the top 
of memory, and is not fixed, due to memory expansion. Many 
Atari machine language programs store themselves at the bot¬ 
tom of memory, then use memory above themselves to store 
text or other information. But because LADS stores its labels 
below itself, the Atari version must be located at the top of 
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memory. Since the top of memory with a cartridge (or with 
40K of RAM) is $9FFF, and since Atari LADS is about 7K long, 
$8000 seems to be a good place. If you have a 48K Atari, you 
may want to reassemble LADS at $A000. The choice of $8000 
does exclude Atari owners with less than 40K, but if you have 
access to a 40K machine, you could reassemble LADS at 8K 
below the top of memory. 

Let's look at the major differences between the Atari 
LADS and Commodore LADS source code. We won't get into 
specifics; for that you can refer to the source code itself. The 
translation of Atari LADS involved two goals: the creation of a 
powerful assembly development system without making major 
changes to most of the Commodore LADS source code. Some 
subprograms needed no changes, others did. Three new sub¬ 
programs are required by the Atari version: Kernal, System, 
and Edit. 

Here's how all the subprograms in the Atari LADS are 
linked: 

Defs -* Eval -> Equate -* Array -» Openl -* Findmn -» Getsa -» 
Valdec -* Indisk -* Math -* Printops -» Pseudo -> Kernal -» System 
-» Edit -* Tables 

Defs. Here we set the origin to $8000. Since we are 
simulating Commodore I/O, we have to create some label 
variables such as FNAMELEN (filename length). These are 
used by the Kernal routines. Other LADS variables like 
MEMTOP and PMEM are also given zero page definitions for 
the sake of speed and for indirect addressing. The BABUF, 
used for holding comments and holding a line in the editor, is 
defined as $0500. On Commodore machines it is $0200, the 
address of the BASIC input buffer. 

Eval. The first difference between the Commodore and 
Atari versions of Eval is that instead of reading the filename 
off the screen. Atari LADS gets the filename from the com¬ 
mand line, passed by the editor. The editor has previously set 
RAMFLAG to 1 if there is no filename. This is a default to 
RAM-based assembly (your source code is already in memory 
and need not be read from disk). If RAMFLAG is 0, LADS 
must assemble from disk. If the RAMFLAG is nonzero, we 
skip over putting the filename into FILEN, and jump past the 
JSR OPEN1 in Eval (since there is nothing to open). At the top 
of Eval, the left margin is set to zero. 

Since LADS has complete control of the Atari, no memory 
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needs to be protected from anything, so the top-of-memory 
pointer need not be lowered. 

In FINI, the RAMFLAG is also checked so that JSR 
OPEN1 is skipped. In FIN, which FINI falls to after the end of 
the second pass, we send an extra byte out to the object file, if 
.D was used. 

Equate, Array, and Findmn. There was no need to 
change any of these modules, since they contain no system- 
specific coding. 

Openl. Many changes have also been made to Openl, al¬ 
though a lot of the source code is similar. FDEV and 
FSECOND hold the device number and secondary address in 
Commodore LADS. Here they are used to hold the access type 
(4 for read, 8 for write) and the auxiliary byte (which is zero 
here). Openl checks the RAMFLAG to see whether it should 
load the file after it's been opened, in case memory assembly 
has been elected. The actual load is done by using part of the 
editor's load routine. Because of RAMFLAG, we don't need a 
separate LOAD1 routine. 

If the file can't be opened, we call the editor's error mes¬ 
sage routine, and then return to the editor. The same error 
handling is performed for all the OPENs. 

OPEN2 writes out the binary file header, made up of two 
255's, followed by the starting and ending addresses in low 
byte/high byte format. The origin (the starting address for the 
object code) is saved in the variable TA. The object code's 
ending address is known, and stored in LLSA. LLSA is ac¬ 
tually one higher than the ending address, which is why we 
write an extra zero to the end of the file in Eval. This prevents 
an ERROR 136 when loading the file from DOS. 

OPEN4 just opens a file for write to the printer. The 
printer's filename is P:, which is given in the .BYTE statement 
as 80 58. 

Getsa. Getsa is very similar to the Commodore version. 
There is no MEMSA—Getsa initializes PMEM to point to the 
start of the editor's text buffer (TEXTBAS), even if PMEM is 
not used. Since CHARIN is smart, checking RAMFLAG to de¬ 
cide whether to assemble from memory or from disk, no more 
changes need to be made. 

Valdec. Valdec would have been unchanged from the 
Commodore version, since there is no machine-specific code. 
However, the editor makes use of Valdec to convert ASCII line 
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numbers into integers. The ASCII line number does not end 
with a zero, though. The first part of Valdec finds the length 
of the number by checking for a zero. It has been changed in 
the Atari version to exit on any nonnumeric digit (one with an 
ASCII value less than 48 or greater than/equal to 58). The 
change does not affect any other use of Valdec. 

Indisk. It is in Indisk where we see many modifications to 
the Commodore version. Since the editor does not tokenize 
anything, KEYWORD and KEYWAD are not needed, and ref¬ 
erences to them in this source code, as well as the KEYWORD 
and KEYWAD routines themselves, have been deleted. Again, 
since nothing is tokenized, checks for +,*,<, >, etc., look for 
the ASCII values instead of the tokenized ones. Since line 
numbers are stored as a string of digits instead of a two-byte 
integer, we must call LINENUMBER in the SYSTEM module 
in order to set LINEN. ENDPRO, instead of looking for three 
zeros to signify the end of a program, must check the disk sta¬ 
tus variable for end of file. End of file returns 136 after the last 
character has been read, and $03 if you try to read past the 
end of file, so we check for both to be safe. We check the sta¬ 
tus for file #1 (the input file) directly ($0353), instead of ST, 
since ST may have been changed by another I/O operation. 
Nonetheless, large parts of Indisk are unchanged from the 
Commodore version. 

Printops. Because of the Kernal simulator, even though 
Printops has plenty of Commodore I/O calls, few changes 
were needed to make Printops work on the Atari. 

Pseudo. There are some minor changes here. KEYWORD 
does not need to be used by .END or .FILE. FILE finds the end 
of the pseudo-op by looking for a space delimiter. The 
filename is then copied into FILEN, and the file opened. If the 
current operation is a RAM-based assembly, Openl takes care 
of loading in the next file. PEND, which supports .END, first 
calls FILE to open the file, then copies SA, which holds the 
current address, into LLSA for use with OPEN2. 

Speaking of OPEN2, some code was deleted from PDISK 
and instead implemented in OPEN2. There were no more 
changes after PDISK to the Pseudo module. In Commodore 
LADS, Pseudo links to Tables, the last module. Here we link 
to Kernal, inserting Kernal, System, and Edit into the chain. 

Kernal. This is the most important module in the Atari 
translation. It implements all the Commodore I/O functions 
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by simulating CHKIN and CHKOUT, and referencing the 
appropriate IOCB according to FNUM. The CIO equates are 
first defined: ICCOM, the command byte; ICBADR, which 
holds the address of the filename or buffer; ICBLEN, which 
holds the length of the filename or buffer; ICAUX1 and 
ICAUX2, which need to be set to zero; and CIO itself, that sin¬ 
gle entry point for all input/output. 

A simple routine is XI6, which multiplies the Accu¬ 
mulator times 16 and stores it in the X Register. X will be an 
offset from the first IOCB. Since each IOCB is 16 bytes long, 
we can use Indexed addressing to change the appropriate 
IOCB with a statement like STA ICCOM,X. 

OPEN is the basic open-file routine. It uses XI6 to get the 
IOCB offset, then stores the filename pointer and filename 
length into ICBADR and ICBLEN. The command byte for 
open ($03) is stored in ICCOM, then CIO is called. CIO's error 
status, which is returned in the Y Register, is saved in ST. 

CHKIN changes the default input IOCB, which is used in 
CHARIN. CHKOUT changes the default output IOCB, which 
is checked for in PRINT. CLOSE just stores the close com¬ 
mand (12) into ICCOM and jumps to CALLCIO, part of 
OPEN. CLRCHN sets the default INFILE and OUTFILE, as 
well as FNUM and ST to zero, which makes CHARIN and 
PRINT use IOCB #0, opened to the screen editor. 

PRINT is expected to print the character currently in the 
Accumulator. It first changes any 13's it sees, which are Com¬ 
modore carriage returns, into 155's (Atari carriage returns). 
Another entry point, OBJPRINT, does not transform 13's. This 
is called when object bytes need to be sent to disk, where you 
don't want 13's changing into 155's. Depending on OUTFILE, 
PRINT will automatically use the appropriate IOCB (0 for 
screen, 2 for object output, 4 for printer output). We then set 
the buffer length to zero, which tells CIO to expect to find the 
character to print in the Accumulator. The print text command 
is used, then we call CIO and restore the X and Y Registers, 
which were saved when PRINT was entered. This prevents 
any interference with LADS. 

CHRIN is also a busy routine. It first checks RAMFLAG 
to see whether it should get a byte from an I/O device or 
from the editor's text memory. If it gets a byte from memory, it 
must check to see if it has gone past the last byte. If so, we 
jump straight to FINI in Eval. Otherwise, CHRIN gets a byte 
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from disk or the keyboard. It uses INFILE to decide which 
IOCB to use, then sets the buffer length to zero. This way it 
requests a single byte from CIO. If a 155 is returned, it is 
changed into a zero, which is what LADS looks for as end of 
line. 

There is no "check for BREAK key" routine in Atari ROM, 
so STOPKEY checks the BREAK key flag, which is set to zero 
if the BREAK key is pressed. If BREAK was pressed, we exe¬ 
cute TOBASIC, which jumps back to the editor. 

CLALL is not used by LADS, but is used by the editor to 
close all files in case of an error. It works like the Commodore 
CLALL routine, and restores the default I/O (input from key¬ 
board, output to screen) by jumping to CLRCHN. 

System. A few more routines are provided here which are 
not directly supported by the operating system. OUTNUM 
prints the ASCII number given to it in the X Register, which 
holds the low byte of the number to print, and the Accu¬ 
mulator holding the high byte. We then call $D9AA, which 
converts the integer number in locations $D4 and $D5 into 
floating point, and then call $D8E6, which converts the float¬ 
ing point into a printable ASCII sequence of digits starting at 
$0580. The routine at $D8E6 sets bit 7 in the last digit of the 
ASCII numeral string. We print the string, checking and mask¬ 
ing off bit 7. LINENUMBER reads the ASCII line number from 
source code and converts it to an integer, using VALDEC. The 
result is saved in LINEN. 

Tables. The major changes here are that the error mes¬ 
sages must be typed in inverse video. One extra variable is de¬ 
fined: LLSA to hold the ending address. 


Program 11-3. Kernal 


100 

110 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 


ICCOM = $0342 

ICBADR = $0344 

ICBLEN = $0348 

ICAUX1 = $034A 

ICAUX2 = $ 0 3 4 B 

CCLOSE = 12 

CIO = $E456 

X16 ASL 

ASL 

ASL 

ASL 

TAX 

RTS 
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230 

240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
4 10 
420 
430 
4 40 
450 
460 
470 
480 
4 90* 

500 

501 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
6 40 
650 
660 
670 
680 
690 


;Opens a file OPEN #FNUM,FDEV,FSECOND,(F 
NAMEPTR) 

OPEN LDA FNUM 
JSR X16 
LDA FNAMEPTR 
STA ICBADR,X 
LDA FNAMEPTR+1 
STA ICBADR+l.X 
LDA FNAMELEN 
STA ICBLEN,X 
LDA #0 

STA ICBLEN+1,X 
LDA FDEV 
STA ICAUX1,X 
LDA FSECOND 
STA ICAUX2.X 
LDA #$03 
STA ICCOM,X 
CALLCIO JSR CIO 
STY ST 
RTS 

CHKIN ST X INFILE 
RTS 

CHKOUT STX OUTFILE 
RTS 

CLRCHN LDX #0 
STX INFILE 
STX OUTFILE 
STX FNUM 
STX ST 
RTS 

CLOSE JSR X16 
LDA #12 
STA ICCOM,X 
JMP CALLCIO 
PRINT CMP #13 
BNE OBJ PR I NT 
LDA #155 

OBJ PRINT STA KASAVE 
STY KYSAVE. 

STX KXSAVE 
LDA OUTFILE 
JSR X16 
LDA #0 

STA ICBLEN,X 
STA ICBLEN+1,X 
LDA #11 
STA ICCOM.X 
LDA KASAVE 
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700 JSR CALLCIO 
710 LDY KYSAVE 
720 LDX KXSAVE 
730 LDA KASAVE 
740 RTS 
750 ; 

760 CHARIN STY KYSAVE 
770 ST X KXSAVE 
780 LDA RAMFLAB 

790 BEO CHRIN; If RAMFLAG = 0 (False) then get 
byte -from device 
800 ;Else get byte from memory 
810 LDY # 0:L D A (PMEM) ,Y:PHA 
820 INC PMEM:BNE NINCP1:INC FMEM+l 
830 NINCP1 CLCrLDA PMEM:SBC TE X END;STA KTEMP 
840 LDA PMEM+1 
850 SBC TEXEND+1 

860 ORA KTEMP:BCC NOTEOF:BEO NOTEOF 
880 JMP FINI 

890 NOTEOF LDA tt0:STA ST: STA *0353 

900 PLA:JMP CHRXIT 

910 CHRIN LDA INFILE 

920 JSR X16 

930 LDA #0 

940 STA ICBLEN.X 

950 STA ICBLEN+1 , X 

960 LDA #7 

970 STA ICCOM,X 

980 JSR CALLCIO 

990 CHRXIT LDY KYSAVE 

1000 LDX KXSAVE 

1010 CMP #155 

1020 BNE ZICR 

1030 LDA #0 

1040 ZICR RTS 

1050 STOPKEY PHA 

1060 LDA *11 

1070 BEO TOBASIC 

1080 PLA 

1090 RTS 

1100 TOBASIC JMP EDIT 
114 0 ; 

1150 CLALL LDX #7 

1160 CLLOOP ST X KTEMP:TXA:JSR CLOSE 

1170 LDX KTEMP: DEX: BNE CLLOOP 

1180 JMP CLRCHN 

1190 KASAVE .BYTE 0 

1200 KYSAVE .BYTE 0 

1210 KXSAVE .BYTE 0 
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1220 KTEMP .BYTE 0 
1230 .FILE D:SYSTEM.SRC 


Program 11-4. System 


170 
180 
190 
200 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
360 
390 
400 
410 
420 
430 
440 
4 50 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 


OUTNUM ST X $D4 
STA $D5 
J SR 4D9AA 
JSR *D8E6 
LDY #0 

ONUMLOOP STY OYSAVE 

LDA ($F3).Y 

PHA 

AND #$7F 
JSR PRINT 
PLA 

BMI ONUMEXIT 
LDY OYSAVE 
INY 

BNE ONUMLOOP 
ONUMEXIT RTS 
OYSAVE .BYTE 0 
LINENUMBER LDY #0 
LINELOOP JSR CHARIN 
CMP #32 
BEQ OUTLINE 
STA BABUF.Y 
INY 

JMP LINELOOP 
OUTLINE LDA #0 
STA BABUF.Y 
LDA #< BABUF 
STA TEMP 
LDA # >BABUF 
STA TEMP+1 
JSR VALDEC 
LDA RESULT 
STA LINEN 
LDA RESULT +1 
STA LINEN+1 
LDY #0 
RTS 

.FILE D:ED IT.SRC 


The Atari LADS Editor 

The Atari editor is a whole minilanguage system itself. The 
source code for this subprogram is well commented and 
should be understandable as it stands. Since it is not a part of 
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LADS proper, we'll limit ourselves here to an overview of the 
major routines. 

UMOVE and DMOVE are high-speed memory move 
routines used to adjust the source code when lines are deleted, 
added, and so forth. UMOVE can move one range of memory 
to another, provided that the block to be moved is higher in 
memory. The range of bytes can overlap so UMOVE can be 
used as a delete routine. DMOVE moves memory downward, 
and is used for inserting. If the memory ranges do not overlap, 
either one can be used. FROML and FROMH hold the start of 
the block to be moved. DESTL and DESTH are where the 
block is moved to. LLEN and HLEN are set to hold the length 
of the block to be moved. These routines use self-modifying 
code for speed. 

EDIT is the entry point for LADS when it is first run, as 
well as the return point from the LADS assembler. It cleans up 
the stack, resets the left margin to 2, then stores the addresses 
of all the editor commands into COMVECT, which is a lookup 
table used by COMMAND. The BRK interrupt is initialized to 
point to a special breakpoint entry to the editor. We then 
check to see if this is the first time EDIT has been entered. If 
so, we need to NEW out any garbage in memory. The NEW 
routine sets the end-of-text pointer to point to the beginning 
of text. No memory is actually cleared. 

PROMPT is the entry point for a new line. It prints 
"LADS Ready", then falls through to ENTER, which is the en¬ 
try point for a new line without printing a prompt. CHARIN 
from Kernal gets a byte, which is then processed to remove 
lowercase, etc. The line is stored in the BABUF, starting at 
$0500. When a carriage return is detected, an Atari carriage re¬ 
turn is added to the end of the line in BABUF, and the length 
of the line is saved in INLEN. If the length is zero, we go back 
for another line. The first character of the line is checked. If it 
is a numeric digit, there must be a line number. If there is no 
line number, then the line must be a command. 

If it is a line number, we call GETLNUM to get the inte¬ 
ger value of the line number. GETLNUM also calls FINDLINE 
to see if that line already exists. If it does, the line is deleted. 
Then we check to see if there is anything else besides just a 
line number. If not, we don't insert the line into the source 
code. Since the line was already deleted, this has the desired 
effect. We then go back for another line. 
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COMMAND searches through a table of commands, 
matching the line the user typed in against the table. If the 
command is not found, a syntax error message is displayed, 
and we return to PROMPT. If the command is found, we save 
the position of whatever's after the command (the argument) 
in ARGPOS. The command number (COMNUM) is used as an 
index into COMVECT, which holds the addresses of all com¬ 
mands. We get the address, subtract one from it, then put it on 
the stack. A RTS then ends up pulling this address off and 
jumping to it. It's like ON-GOTO in BASIC. 

MLIST lists the entire text buffer, from TEXTBAS to 
TEXEND. A second entry point in MLIST, INLIST, is called by 
the LIST routine to list a part of a program. We also check 
here for the BREAK key. MLIST is used by SAVE to list the 
program to disk, cassette, or the printer. 

DOS is spectacularly simple. It just jumps through the 
DOS vector, location $0A. 

FINDLINE is crucial to the editor. It searches through the 
source code, trying to match the line number given to it 
(LNUM) against all the ASCII line numbers in the program. It 
uses Valdec to convert the ASCII line number into an integer. 
Because of all the ASCII to integer conversions, FINDLINE 
can be slow on long programs. It returns with BEGPTR point¬ 
ing to the beginning of the line found, and ENDPTR pointing 
to the end of the line. If there is no program in memory, it re¬ 
turns with BEGPTR and ENDPTR pointing to the start of text. 
If the line is not found, BEGPTR and ENDPTR point to the 
next line greater than the line number searched for. If there is 
no such line, they point to the end of text. The size of the line 
found is also calculated for the benefit of the delete routine. 

DELETE calls FINDLINE, then calls UMOVE to move 
memory from the end of the line on top of the beginning of 
the line. TEXEND is then changed to reflect a shorter pro¬ 
gram. Many checks have to be made to prevent a crash under 
conditions such as no program in memory. INSERT is similar 
to DELETE. It calls DMOVE to insert a gap at the position the 
line was found. 

ERRPRINT is used to display an error message. To be 
safe, it also closes all files. GETNUM gets and converts an 
ASCII line number to an integer, using the system ASCII-to- 
floating-point and floating-point-to-integer routines. The 
routines return a pointer to the end of the number. This 
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pointer is always kept track of so we can check for new com¬ 
mand arguments. GETLNUM uses this routine, then calls 
FINDLINE. 

LIST calls GLIST, which is also used by SAVE. GLIST 
finds out the line number range you want to list. If there is no 
line number range given, it goes to MLIST to list the entire 
program. Otherwise, it has to check for just one line given, or 
a range of lines. It's complicated, but it works. 

OPENFILE is used by SAVE, LOAD, and MERGE. It looks 
at the argument of the command to get the filename, then 
calls OPEN within Kernal. If there is an error, we jump to 
PROMPT. SAVE calls OPENFILE with an 8 for output. It then 
sets the output file and calls GLIST, which sends the listing 
out to the current output file. After GLIST returns, the file is 
closed. 

MERGE just sets the input file to the device and jumps to 
PROMPT. PROMPT keeps requesting input and storing lines 
until it gets an error. It then closes the file and restores default 
I/O. 

Adding Your Own Editor Commands 
The LADS command checks to see if there is a filename, then 
sets the RAMFLAG accordingly and jumps into EVAL. The 
SYS command calls GETNUM to get the decimal argument, 
then stores the address right after a JSR, to which it then falls 
through, creating a self-modifying indirect JSR. If the routine 
being called ends in a RTS, control will be returned to 
PROMPT. You can use SYS to add new editor commands. Just 
check location $D0, which will point to a position with 
BABUF ($0500) after the SYS number. You can use $D0 to 
check for extra arguments within BABUF. 

LOAD calls OPENFILE to open the load file for read. It 
has a second entry point (AFTEROPEN) if the file has already 
opened. For maximum speed, the program is loaded by calling 
the CIO get-record routine, which loads in the entire file di¬ 
rectly at TEXTBAS, the start of text. Beware, though, that no 
conversions are done on any of the text, and no checks are 
made for a legal source file. You could even load and list word 
processing files. AFTEROPEN is called by Openl if RAM 
needs to be reloaded during a memory assembly. 

The last routine in the editor handles a BRK instruction 
entry encountered. It prints a message, uses OUTNUM to dis- 
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play the address where the BRK was found, clears the inter¬ 
rupt flag, cleans the stack, then jumps to the Edit entry point. 
Edit then links to Tables. 

Program 11-5. Editor 

100 ;Line Editor -for LADS 
110 :CharlE5 Brannon 1984 
0120 ; 

0130 PTR = tCB 
0140 TEXTBAS = $2000 
0150 ;Move routines 

0160 ; 

0170 JMP EDIT 
0180 FROML .BYTE 0 
0190 FROMH .BYTE 0 
0200 DESTL .BYTE 0 
0210 DESTH .BYTE 0 
0220 LLEN .BYTE 0 
0230 HLEN .BYTE 0 
0240 ENDPOS .BYTE 0 
0250 INLEN .BYTE 0 
0260 LNUM .BYTE 0 0 
0270 TEXTPTR .BYTE 0 
0280 COMNUM .BYTE 0 
0290 TEXEND .BYTE 0 0 
0300 LEN .BYTE 0 
0310 YSAVE .BYTE 0 
0320 BEGPTR .BYTE 0 0 
0330 ENDPTR .BYTE 0 0 
0340 FOUNDFLAG .BYTE 0 
0350 LINESIZE .BYTE 0 0 
0360 SAVEND .BYTE 0 0 
0370 SAVBEG .BYTE 0 0 
0380 ARGPOS .BYTE 0 
0390 ZFLAG .BYTE 0 
0400 LCFLAG .BYTE 0 
0410 FIRSTRUN .BYTE 0 
0420 INDEX = $D0 
0430 TMP .BYTE 0 
0440 ; 

0450 UMOVE LDA FROML 
0460 STA MOVLOOP +1 
0470 LDA FROMH 
0480 STA MOVLOOP+2 
0490 LDA DESTL 
0500 STA MOVLOOP+4 
0510 LDA DESTH 
0520 STA MOVLOOP+5 
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0530 

0540 

0550 

0560 

0570 

0580 

0590 

0600 

0610 

0620 

0630 

0640 

0650 

0660 

0670 

0680 

0690 

0700 

0710 

0720 

0730 

0740 

0750 

0760 

0770 

0780 

0790 


0820 

0830 

0840 


0870 

0880 

0890 

0900 

0910 

0920 

0930 

0940 

0950 

0960 

0970 

0980 

0990 

1000 


LDX HLEN 
BEQ SKIPMOV 
M0V1 LDA #0 
M0V2 STA ENDPOS 
LDY #0 

MOVLDOP LDA $FFFF,Y 

STA $FFFF,Y 

INY 

CPY ENDPOS 
BNE MOVLOOP 
INC MOVLOOP+2 
INC MOVLOOP + 5 
CPX #0 
BEQ OUT 
DEX 

BNE MOV 1 

SKIPMOV LDA LLEN 
BNE MOV2 
OUT RTS 

DMOVE LDA HLEN 
TAX 

ORA LLEN 
BNE NOTNULL 
RTS 

NOTNULL CLC 
T X A 

ADC FROMH 
STA DM0VL00P+2 
LDA FROML 
STA DMOVLOOP +1 
CLC 
T X A 

ADC DESTH 
STA DM0VL00P+5 
LDA DESTL 
STA DMOVLOOP+4 
I N X 

LDY LLEN 

BNE DMOVLOOP 

BEQ SKIPDMOV 

DMOV1 LDY #255 

DMOVLOOP LDA $FFFF,Y 

STA tFFFF,Y 

DEY 

CPY #255 

BNE DMOVLOOP 

SKIPDMOV DEC DMOVLOOP+2 
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1010 DEC DM0VL00P+5 

1020 DEX 

1030 BNE DM0V1 

1040 RTS 

1050 ; 

1060 EDIT LDX #255;Reset stack 

1070 TXS 

1071 JSR CLALL 

1080 LDA #0;Cl ear RAMFLAG 
1090 STA RAMFLAG 
1100 LDA #2; Let t margin 
1110 STA 82 
1120 JSR PRNTCR 

1130 ;Store addresses of commands 

1140 LDA # < LIST 

1150 STA COMVECT 

1160 LDA # >LIST 

1170 STA COMVECT +1 

1180 LDA #< DOS 

1190 STA COMVECT + 2 

1200 LDA #>DOS 

1210 STA COMVECT + 3 

1220 LDA # <INIT 

1230 STA COMVECT + 4 

1240 LDA # >INIT 

1250 STA COMVECT + 5 

1260 LDA #< SAVE 

1270 STA COMVECT + 6 

1280 LDA # >SAVE 

1290 STA COMVECT + 7 

1300 LDA #< LOAD 

1310 STA COMVECT + 8 

1320 LDA # >LOAD 

1330 STA COMVECT + 9 

1340 LDA #<MERGE 

1350 STA COMVECT +10 

1360 LDA #>MERGE 

1370 STA COMVECT+11 

1380 LDA # < LADS 

1390 STA COMVECT +12 

1400 LDA # >L ADS 

1410 STA COMVECT +13 

1420 LDA # <SYS 

1430 STA COMVECT +14 

1440 LDA # >SYS 

1450 STA COMVECT + 15 

1460 ;Set BRK instr. interrupt to 

1470 LDA #< BREAK:STA 518:LDA # >BR 


breakpoint 


EAKsSTA 519 


314 




Modifying LADS: Special Notes on Atari and Apple LADS 


1480 

1490 

1500 

1510 

1520 

1530 

1540 

1550 
1 560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1 660 
1670 
1680 
1 690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 

1790 
1 800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 


1 880 
1890 

1900 

1910 


LDA FIRSTRUN 
BEQ DONEW 
JMP PROMPT 
DONEW LDA #$CB 
STA FIRSTRUN 
JMP INIT 

NEW LDA #<TEXTBAS;Store beginning locat 

ion at ending pointer 

STA TEXEND 

LDA #>TEXTBAS 

STA TEXEND+1 

J SR CLRCHN;Keyboard/Screen 
RTS 

INIT J SR NEW 

PROMPT LDA #<PMSG;Print prompt 
LDY #>PMSG 
J SR PRMSG 

ENTER LDY #0;Get a line 
STY Z FLAG 
STY LCFLAG 

GETIT J SR CHARIN;a character 
LDX ST;Error ? 

BPL NOERR 

CPX #136;End of file? 

BEQ EOF:don’t print error 

CPX #128;same for break key abort 

BEQ EOF 

J SR ERRPRINT;print other error 

EOF J SR CLOSEIT;close down active file 

JMP PROMPT;get new line 

NOERR CMP #34;A quote toggles the lower 

c ase f1ag 

BNE NOTQUOTE 

PHA;save quote 

LDA LCFLAG $. f 1 i p lowercase 

EOR #1 

STA LCFLAG 

PLAjrestore quote 

NOTQUOTE CMP #48;an ASCII "0"? 

BNE NOT Z 

LDX Z FLAG; if so, check to see if it's a 

BEQ GET IT;if it is, ignore it 

NOT Z INC ZFLAG;if we get here, reset le 

ading zero flag 

CMP #59;now check for comment 
BNE NOTREM 
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1920 INC LCFLAG;disable lowercase conversion 
for rest of 1ine 
1930 NOTREM LDX LCFLAG 

1940 BNE NOTLOWER;if remflag has been set, d 
on’t convert lowercase 
1950 AND #127 skill inverse 
I960 CMP #97;1owercase "a" 

1970 BCC NOTLOWER;if less than, not lowercas 

1980 CMP #123;lowercase "z"+1 

1990 BCS NOTLOWER;if >=, not lowercase 

2000 AND #95;kill bit 5 <127-32=95) 

2010 NOTLOWER STA BABUF,Y;store it 

2020 INY 

2030 CMP #0 

2040 BNE GETIT 

2050 DEY 

2060 LDA #155 

2070 STA BABUF,Y 

2080 STY INLEN;save length of line 
2090 CPY #0 

2100 BEQ ENTER;if length=0, blank line, so g 
o back 

2110 LDA BABUF;fir st character: is it a numb 
er? 

2120 CMP #58 

2130 BCS COMMAND;greater than "9", so must b 
e a command 
2140 CMP #48; 11 0" 

2150 BCS LINE;greater than "9", but greater 
than/ = ,, 0 ,, ? 

2160 JMP COMMAND;no, so command 

2170 ;Must be a line, so get line number 

2180 LINE LDA #255;no offset 

2190 J SR GETLNUM 

2200 LDA INDEX;INDEX points to first non-num 

2210 STA TEXTPTR;so save it 

2220 LDA FOUNDFLAG;if it exists 

2230 BNE NODELETE;it not, don’t delete it 

2240 J SR DELETE 

2250 NODELETE LDY TEXTPTR;is there any text 
on the line? 

2260 CPY INLEN;compare to line length 
2270 BEQ OVER I NS;no text, just delete 
2280 J SR INSERT;otherwise insert line 
2290 OVERINS JMP ENTER;and get another line 

2300 ; 
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2310 COMMAND LDA #<COMTABLE;point to start o 
f command table 
2320 STA PTR 
2330 LDA # >COMT ABLE 
2340 STA PTR + 1 
2350 LDY #0;for loop 

2360 STY COMNUM;clear command number 
2370 LDX 4 0; -for loop 

2380 SRCH LDA <PTR),Y;get a character of com 
mand table 

2390 BED COMFOUND;if we get zero here, comma 
nd is found 

2400 CMP #255;or syntax error 
2410 BEQ SYNERR 

2420 CMP BABUF,X;match with parallel charact 
er in line buffer? 

2430 BNE NOTFND;if comparison fails, try nex 

2440 INX;next character 
2450 BACKIN INY 

2460 BNE SRCH;bump high byte? 

2470 INC PTR+l;yes 
2480 JMP SRCH;continue 

2490 NOTFND LDA (PTR), Y ; i f not found, skip p 
ast ending zero 
2500 BEQ NXTONE 
2510 INY 
2520 BNE NOTFND 
2530 INC PTR+1 
2540 JMP NOTFND 

2550 NXTONE INC COMNUM;bump up command numbe 

2560 LDX #0;continue search 
2570 JMP BACKIN 

2580 SYNERR LDA #<SYNMSG;print syntax error 

2590 LDY #>SYNMS6 

2600 J SR PRMSG 

2610 JMP PROMPT 

2620 COMFOUND STX ARGPOS 

2630 LDA COMNUM;indirect jump to address of 
command 
2640 ASL 
2650 TAX 

2660 LDA COMVECT,X 

2670 SEC 

2680 SBC #1 

2690 STA TMP 

2700 LDA CDMVECT+1,X 
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2710 SBC #0 
2720 PHA 
2730 LDA TMP 
2740 PHA 
2750 RTS 

2760 ;Command table. Format: 

2770 ;.BYTE "command" 0,"command" 0,255 (255 

to end table) 

2780 COMTABLE .BYTE "LIST" 

2790 .BYTE 0 
2800 .BYTE "DOS" 

2810 .BYTE 0 
2820 .BYTE "NEW" 

2830 .BYTE 0 
2840 .BYTE "SAVE ” 

2850 .BYTE 0 
2860 .BYTE "LOAD " 

2870 .BYTE 0 

2880 .BYTE "MERGE ” 

2890 .BYTE 0 
2900 .BYTE "LADS" 

2910 .BYTE 0 
2920 .BYTE "SYS" 

2930 .BYTE 0 
2940 .BYTE 255 

2950 stable will hold address of each comman 
d routine in low,high format 
2960 COMVECT .BYTE 0000000000000 
0 0 0 

2970 ; 

2980 MLI ST LDA #<TEXTBAS;Point to beginning 
of program 
2990 STA PTR 

3000 SEC;get length of program to list 

3010 LDA TEXEND 

3020 SBC PTR 

3030 STA LLENiinto LLEN 

3040 LDA #>TEXTBAS 

3050 STA PTR+1 

3060 LDA TEXEND+1 

3070 SBC PTR+1 

3080 STA HLEN;an d HLEN 

3090 INLIST LDA HLEN 

3100 TAX 

3110 ORA LLEN;both zero? 

3120 BNE DOLIST 

3130 RTS;if so, exit LIST 

3131 DOLIST LDA ttl:STA 766 
3140 CPX #0;hiqh byte zero? 
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3150 BEQ LOLST; if bo, skip primary pass 

3160 LDA #0;tar primary pass, list fully 

3170 STA LEN 

3130 RELIST LDY #0 

3190 PRLIST LDA <PTR),Y 

3200 J SR PRINT;print a character 

3210 LDA ST 

3220 BMI OUTLI5T; e>: i t on error 

3230 I NY 

3240 CPY LEN 

3250 BNE PRLIST 

3260 INC PTR+1 

3270 DEX;primar y pass completed? 

3280 BMI OUTLI ST; if so, do secondary pass 
3290 BNE PRLIST;if not, continue 

3300 LOLST LDA LLEN;now list remainder (seco 
ndary pass) 

3310 STA LEN 

3320 JMP RELIST;continue 

3330 OUTLIST LDA #0:STA 766:RTS;go back to R 
3340 ; 

3350 DOS JMP <10);DOS Vector 
3360 ; 

3370 FINDLINE LDA IKTEXTBAS; start at top of 
program 

3380 STA PTR;initialize pointer 
3390 LDA #>TEXTBAS;same for high bytes 
3400 STA PTR+1 
3410 LDA #0 

3420 STA FDUNDFLAG;set foundflag to affirmat 

3430 TAY 
34 4 0 ; 

3450 LEO STY YSAVE;preserve Y 
3460 TYA;point to first byte in line 
3470 CLC 
3480 ADC PTR 

3490 STA TEMP;so we can convert line # 

3500 STA BEGPTR;save start of line 
3510 STA ENDPTR 

3520 LDA PTR+1;same for high byte 

3530 ADC #0 

3540 STA TEMP+1 

3550 STA BEGPTR+1 

3560 STA ENDPTR+1 

3570 ;check to see if at end 

3580 SEC 
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3590 
3600 
36 10 
3620 
3630 
36 40 
3650 
36 60 
3670 

36 80 
3690 
3700 

37 10 
3720 
3730 

37 40 
3750 
3760 
3770 
3780 
3790 
3800 
3810 
3820 

38 30 


3840 
3850 
3860 
3870 
3880 
3890 
3900 
39 10 
3920 

3930 

3940 

3950 

3960 

3970 

3980 

3990 

4000 

4010 

4020 

4030 

4040 

4050 


LDA BEGPTR 

SBC TEXEND 

STA TMP 

LDA BEGPTR+1 

SBC TEXEND+1 

□RA TMP 

BCC NOTEND 

JMP NOTFOUND2 

NOTEND J SR VALDEC 

SEC;see if line number matches 

LDA RESULT 

SBC LNUM 

STA TMP 

LDA RESULT +1 

SBC LNUM+1 

ORA TMP 

BEQ FOUNDLINE;if match, line Found 
BCS NOTFOUND 

;no match at all, so continue search 
NEXTLINE J SR EOL;skip to end of line 
INY;5kip over eol 
BNE NOADJ 2 
INC PTR+1 

N0ADJ2 JMP LEQ;continue search 
FOUNDLINE DEC FOUNDFLAG;set to found <a 
f ter INC in N0TF0UND2) 

NOTFOUND J SR EOL;skip past end of line 

CLC;store at ending address 

TYA 

ADC PTR 
STA ENDPTR 
LDA #0 
ADC PTR+1 
STA ENDPTR+1 

N0TF0UND2 INC FOUNDFLAG;if 255, then 0 
(found), else 1 (not found) 

SECsget size of line 
LDA ENDPTR 
SBC BEGPTR 

STA LINESIZE;put it in LINESIZE 

LDA ENDPTR+1 

SBC BEGPTR+1 

STA LINESIZE+1 

INC LINESIZE 

BNE NOINC3 

INC LINESIZE+1 

NOINC3 RTS 

;skip past end of line 
EOL LDY YSAVE;restore Y 
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4060 
4070 
4080 
4090 
4 100 
4110 
4120 
4130 
4140 
4150 
4 160 
4 170 
4 180 
4190 
4200 
4210 
4220 
4230 
4 24 0 
4250 
4260 

4270 

4280 
4290 
4300 
4310 
4320 
4330 
4340 
4350 
4360 
4370 
4380 
4390 
4400 
44 1 0 
4420 
4430 
4440 
4450 
4 4 60 
4470 
4480 
4490 
4500 
4510 
4520 


SRCHEND LDA (RTR),Y;get character 
CMP #155 

BEQ ENDLINE;if zero (EOL) 

INY;bump up pointer 
BNE SRCHEND;zero? 

INC PTR+l;next block 

NDADJ JMP SRCHEND;en d of line? 

ENDLINE RTS 

;Print message 

PRMSG STA PTRjprepare pointer 
STY PTR + 1 
LDY #0 

PRLODP LDA (PTR),Y;get msg char 
BEQ OUTMSG;z er o lend of message) 

JSR PRINT;else print char 
INY;continue loop 
BNE PRLODP 
OUTMSG RTS 

;FINDLINE has initialized BEGPTR, ENDPT 
R, and LINESIZE 

DELETE LDA ENDPTR;move FROM lend of lin 

e + 1 1 

CLC 

ADC #1 
STA FROML 
LDA ENDPTR+1 
ADC #0 
STA FROMH 

LDA BEGPTR;t o beginning of line 
STA DESTL 
LDA BEGPTR+1 
STA DESTH 

SEC:length of move is TEXEND-ENDPTR 

LDA TEXEND 

SBC ENDPTR 

STA LLEN 

LDA TEXEND+1 

SBC ENDPTR+1 

BCS ZLAST 

LDA TEXEND 

BEQ N0DEC2 

DEC TEXEND+1 

N0DEC2 DEC TEXEND 

JMP NOMOV 

ZLAST STA HLEN 

ORA LLEN 

BEQ SKIPDEL;nothing to move! 


321 



Modifying LADS: Special Notes on Atari and Apple LADS 


4530 J SR UMOVE 
4540 NOMOV SEC 

4550 LDA TEXEND;subtract size of deleted lin 
e from program end 
4560 SBC LINESIZE 
4570 STA TEXEND 
4 5S0 LDA TEXEND+1 
4590 SBC LINESIZE+1 
4600 STA TEXEND+1 
4610 SKIPDEL RTS;delete done! 

4620 ; 

4630 INSERT LDA BEGPTR;insert gap at found 1 

4640 STA PTR;also set pointer 
4650 STA F ROML; move From BEGPTR 
4660 SEC 

4670 ADC INLEN;to BEGPTR+INLEN+1 

4680 STA DESTL 

4690 LDA BEGPTR+1 

4700 STA PTR+1:same for high 

4710 STA FROMH 

4720 ADC #0 

4730 STA DESTH 

4740 SEC:# of bytes to move is 

4750 LDA TEXEND;(TEXEND-BEGPTR)+1 

4760 SBC BEGPTR 

4770 STA LLEN 

4780 LDA TEXEND+1 

4790 SBC BEGPTR+1 

4800 STA HLEN 

4810 BCS NOTLAST 

4820 LDA TEXEND 

4830 BNE NODEC 

4840 DEC TEXEND+1 

4850 NODEC DEC TEXEND 

4860 JMP INSEXIT 

4870 NOTLAST ORA LLEN 

4880 BEQ INSEXIT;nothing to insert! 

4890 NOINC2 JSR DMOVE;do insert 

4900 INSEXIT SEC;add length of line added 

4910 LDA TEXEND; t o end of text pointer 

4920 ADC INLEN 

4921 STA TEXEND 
4940 LDA TEXEND+1 
4950 ADC #0 

4960 STA TEXEND+1 

4970 LDY #0;gap ready, put in line 
4980 INSLOOP LDA BABUF,Y 
4990 STA (PTR),Y 
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5000 

5010 

5020 

5030 

5040 

5050 

5060 

5070 


5100 

5110 

5120 

5130 

5140 

5150 

5160 

5170 

5180 

5190 

5200 

5210 

5220 

5230 

5240 

5250 

5260 

5270 

5280 

5290 

5300 

5310 

5320 

5330 

5340 

5350 

5360 

5370 

5380 

5390 

5400 
54 1 0 
5420 

5430 

5440 

5450 

5460 


INY 

CPY INLEN 
BCC INSLOOP 
BEQ INSLOOP 
RTS;in ser t done! 

CLOSE IT LDA FNUM 
BEQ NOCLOSE 
J SR CLOSE 

NOCLOSE J SR CLRCHN 
RTS 

ERRPRI NT LDA ST 
STA TMP 
J SR CLALL 
LDA #<ERRMSG 
LDY #>ERRMSG 
J SR PRMSG 
LDX TMP 
LDA #0 
J SR OUTNUM 
J SR PRNTCR 
RTS 

PMSG .BYTE 155 
-BYTE "LADS Ready.” 

.BYTE 155 0 
SYNMSG .BYTE 253 
.BYTE "Syntax Error" 

.BYTE 155 0 
ERRMSG .BYTE 253 
■BYTE "Error - ” 

.BYTE 0 

BRKMSG .BYTE "BRK From " 

-BYTE 0 

GETNUM STA $F2 
INC *F2 

LDA #<BABUF;point to line buffer 
STA $F3 
LDA # >BABUF 

STA tF4;offset should be in tf2 

J SR $D800;convert ASCI I to floating poi 

nt 

BCS NUMERR 

J SR $D9D2:floating point to integer 
LDA $F2;store pointer to first non-nume 
r a 1 

STA INDEX 
RTS 

NUMERR LDA #0;clear result 
STA $D4 
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5470 STA *D5 
5480 RTS 

5490 GETLNUM JSR GETNUM;Get number from BABU 
F + < a c c u m u 1ator + 1) 

5500 LDA $D4;put it in LNUM 

5510 STA LNUM 

5.520 LDA $D5 

5530 STA LNUM+1 

5540 JSR FINDLINE:find the line 

5550 RTS 

5560 LIST JSR GLIST 
5570 JMP PROMPT 

5580 GLIST LDA ARGPOS;Any arguments? 

5590 CMP INLEN;not if argpos is at end of li 

5600 BNE YESARG 

5610 JMP ML I ST; so list all 

5620 YESARG JSR GETLNUM;get first numeric ar 

5630 LDA BEGPTR;1ist from beginning of first 
line 

5640 STA SAVBEG;save beginning pointer 
5650 LDA BEGPTR+1 

5660 STA SAVBEG+1 

5670 LDA ENDPTR;save end of first line 
5680 STA SAVEND 

5690 LDA ENDPTR+1 

5700 STA SAVEND+1 

5710 LDA INDEX;point to second argument 

5720 CMP INLEN;if equal, no second argument 
5730 BNE YESARG2 

5740 LDA FOUNDFLAG;no second arg, so check f 
or 1 eg a1 line 

5750 BNE NOL1ST;line wasn’t found, so don’t 
list it 

5760 LDA SAVEND;restore end of line 

5770 STA ENDPTR 

5780 LDA SAVEND+1 

5790 STA ENDPTR+1 

5800 JMP OVER2;and skip 

5810 YESARG2 JSR GETLNUM;get second line num 

5820 0VER2 LDA SAVBEG 

5830 STA PTR 

5840 LDA SAVBEG+1 

5850 STA PTR+1 

5860 SEC;calculate length 

5870 LDA ENDPTR 

5880 SBC PTR 
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5890 

5900 

5910 

5920 

5930 

5940 

5941 
5950 
5960 
5970 
5980 
5990 
6000 
60 10 
6020 
6030 
6040 
6050 
6060 
6070 
6080 
6090 
6100 
6110 
6120 
6130 
6140 
6 150 
6160 

6170 
6 1 80 
6 190 
6200 
62 10 
6220 
6230 
6240 
6250 
6260 
6270 
6280 
6290 
6300 
6310 
6320 
6330 
6340 


STA LLEN 

LDA ENDPTR+1 

SBC PTR+1 

STA HLEN 

BCS BDL1ST; if second # < -first#, don 

1 i st 

NOLIST RTS 

GOL1ST LDA FOUNDFLAG:BNE NOINCH 

INC LLEN 

BNE NOINCH 

INC HLEN 

NOINCH JMP INLIST 

OPENFILE CLC 
LDA ARGPOS 

ADC #< B ABUF 

STA FNAMEPTR;point to filename 

LDA #0 

ADC # >BABUF 

STA FNAMEPTR+1 

LDY ARGPOS;find end of filename 

GETFNAME LDA BABUF.Y 
CMP #155;end of line? 

BED ENDFNAME;if so, exit loop 
CMP #44;end of filename? 

BEO ENDFNAME;also legal 
I NY 

BNE GETFNAME;if no delimiter found.. 

JMP SYNERR;it’s a syntax error 
ENDFNAME TYAjconvert Y pointer to lei 
h 

SEC 

SBC ARGPOS;Y-argpos 

STY ARGPOS;reset argpos for list 
STA FNAMELEN;fi1ename lenqth 
LDA # 7;CLOSE #7 
STA FNUM 
J SR CLOSE 

LDA # 0;OPEN #7,n,0,fi1ename 

STA FSECOND 

J SR OPEN;do open 

LDX ST;check for error 

BMI ERRABORT;yes, error 

RTS 

ERRABORT PLA;disk error, so abort 
PLA 

J SR ERRPRI NT 
JMP PROMPT 

SAVE LDA #8;8 means output 


,gt 
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6350 

6360 

6370 

6380 

6390 

6400 

6410 

6420 

6430 

6440 

6450 

6460 

6470 

6480 

6490 

6500 


6510 

6520 

6530 

6540 

6550 

6560 

6570 

6580 

6590 

6600 

6610 

6620 

6630 

6640 

6650 

6660 

6670 
6680 
6690 
6700 
67 10 
6720 
6730 
6740 
6750 
6760 
6770 
6780 
6790 


STA FDEV 

JSR OPENFILE;open the tile 
LDX FNUM;a11 PRINTS go 
JSR CHKOUT;to file 
JSR GLIST;send out listing 
JSR CLOSEIT;close file 
JMP PROMPT 

MERGE LDA 44;4 for input 
STA FDEV 

JSR OPENFILE;open it 

LDX FNUM;a11 input comes from this file 
JSR CHKIN 

JMP ENTERjfile will be closed automatic 
ally 

LADS LDA ARGPOS;Any argument? 

CMP INLEN 

BNE NOTMEM; i f argposOinlen, then there 
is,so don't change RAMFLAG 
INC RAMFLAG 
NOTMEM JMP START 
SYS LDA ARGPOS;1ocate number 
JSR GETNUM;get it 
LDA $D4;put address directly 
STA JUMPVEC+1;into code 
LDA *D5;self-modifying! 

STA JUMPVEC+2 

JUMPVEC JSR $FFFF;this address will be 
changed by above 
JMP PROMPT 

LOAD JSR PLOAD;d o load 
JMP PROMPT;done 
PLOAD LDA #4;4 for read 
STA FDEV 

JSR OPENFILE;open file 

AFTEROPEN LDA FNUM;all input comes from 
this file 
JSR X16 
LDA 4<TEXTBAS 
STA ICBADR,X 
LDA #>TEXTBAS 
STA ICBADR+1,X 
LDA 40 

STA ICBLEN,X 

LDA 4*50 

STA ICBLEN+1,X 

LDA 47 

STA ICCOM.X 

JSR CALLCIO 

LDA FNUM 
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6800 J SR X 1 6 

6810 CLC:add buffer length to get ending add 

6820 LDA ICBLEN,X 

6830 ADC #<TEXTBAS 

6840 STA TEXEND;update end 

6850 LDA ICBLEN+1 , X 

6860 ADC #>TEXTBAS 

6870 STA TEXEND+1 

6880 LDA ST 

6890 CMP #136;end of file? 

6900 BEQ NOPRERR;if so, don't print an error 

6910 J SR ERRPRINT 
6920 JMP PROMPT 

6930 NOPRERR JSR CLOSE IT;c1ose down file 
6940 RTS;end of load 

6950 BREAK CL I:LDA #<BRKMSG:LDY #>BRKMSG:JSR 
PRMSG 

6960 PLA:PLA:PLA:SEC:SBC #2:TAX:PLA:SBC #0:J 
SR OUTNUM 

6965 LDX #255:TXS:JSR PRNTCR:JMP EDIT 
6970 .FILE D:TABLES.SRC 

Atari Machine Language Programming 
There is a lot to be learned from the Atari LADS source code. 
Both the assembler and the editor are complex, powerful pro¬ 
grams. You might find uses in your own programming for 
such general-purpose routines as Valdec, UMOVE, and 
DMOVE. You can add functions to the editor such as search 
and replace. Or you could simply bypass the editor altogether, 
creating LADS-compatible source files using an ordinary word 
processor (and thus have access to the search and replace and 
other features of the word processor program). 

Since maps are invaluable in sophisticated ML program¬ 
ming, you might want to purchase Mapping the Atari (COM¬ 
PUTE! Books, 1983). 

Special Apple Notes 

The Apple version of LADS works the same as the Com¬ 
modore 64 version with only slight modifications. The Apple 
doesn't have the convenience of Kernal routines to access 
DOS, so routines had to be written which could directly access 
the DOS file manager routines. This required extensive 
changes to the Openl subprogram, which are discussed below. 
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Also, because the Applesoft tokenize routine takes the 
spaces out of the text, it was necessary to put a wedge into 
Apple's CHRGET routine to intercept the BASIC tokenize rou¬ 
tine. And the wedge includes a routine that puts the filename 
of the program you want to assemble to the top of the screen 
where LADS expects to find it. 

Apple Disk Access 

The Apple DOS file manager is the part of DOS that handles 
all file input and output to the disk. It calls RWTS 
(Read/Write to Track/Sector) and is called from the command 
interpreter. The command interpreter sends control bytes to 
the file manager through the file manager parameter list. You 
can access the file manager directly by sending it the param¬ 
eters it requires. 

To get the address of the parameter field you JSR to 
$03DC. This loads the Accumulator with the high byte and 
the Y Register with the low byte of the parameter field. You 
can then store these to a zero page location for easy transfer of 
the parameters. 


Table 11-1. Apple File Manager Parameter List 


Parameter 


OPEN 

CLOSE 

DELETE 

CATALOG 

LOCK 

UNLOCK 

RENAME 

INIT 

VERIFY 
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Parameter 


READ 1 Byte 
READ Range 

3 

3 

2 

1 

2 

3 

3/4 

5/6 

7/8 

9/10 

11 

12/14 

* 

15/16 

17/18 

POSITION and 
READ 1 Byte 

3 

POSITION and 

3 

4 

* 

* 

* 

* 

* 

* 

* 

* 

READ Range 











WRITE 1 Byte 

4 

1 




* 

* 

* 

* 

* 

WRITE Range 

4 

2 



* 

* 

* 

* 

* 

* 

POSITION and 

4 

3 

* 

* 


* 

* 

* 

* 

* 

WRITE 1 Byte 











POSITION and 

. 

. 

* 

* 

* 

* 

* 

* 

* 

* 

WRITE Range 











POSITION 

10 


* 

* 



* 

* 




Note: The numbers in the leftmost column represent the 
opcode; the numbers across the top of this chart represent 
byte positions relative to the start of the parameter list. As¬ 
terisks signify that a byte is required for the operation listed. 

A blank space means that this parameter can be ignored. 
Nevertheless, the byte positions must be maintained. For 
example, to DELETE, you do not need to worry about the 
second, third, or fourth bytes—anything can be in them— 
but they must exist. The first byte must contain a five, and 
the fifth through the eighteenth bytes must be set up as de¬ 
scribed below. 

The parameters are expained in sections. The first section 
tells you about all the opcodes except for the read, write, and 
positions opcodes, because they are slightly different from the 
rest. The second section tells you about the read, write, and 
position opcodes; the third, about the last set of parameters 
that is common to all opcodes. 

The first byte of the parameter field is the opcode type. 
This parameter can be in the range of 1 to 12. 

The second parameter is used only with the INIT 
opcodes. If you are using a 48K Apple, the correct value for 
this parameter is 157. 

The third and fourth parameters are used with the OPEN 
and RENAME opcodes. Together they hold the record length 
of a random access file. If you are not using a random access 
file, you should have a zero in both of these locations. With 
the RENAME opcode, these bytes hold the address of the new 
name. 
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The fifth byte holds the volume number. The sixth byte 
holds the drive number. The seventh byte holds the slot num¬ 
ber. The eighth byte holds the file type. 

The ninth and tenth bytes hold the address of the 
filename. The filename must be stored in the address pointed 
to by these bytes. It must be padded with spaces. 

This section explains the read, write, and position 
opcodes. 

The first byte holds the opcode. The second byte holds 
the subcode. 

The next four bytes are used only when you require a po¬ 
sition command. The third and fourth bytes hold the record 
number. The fifth and sixth bytes hold the byte offset. To re¬ 
position the pointer in an open file, you can use these bytes to 
calculate a new position. The new position is equal to the 
length of the file specified in the open opcode times the record 
number plus the byte offset. 

The seventh and eighth bytes hold the length of the range 
of bytes. This is used only when reading or writing a range. 

When reading or writing a range of bytes, the ninth and 
tenth bytes hold the start address of the range. If you are read¬ 
ing or writing only one byte, then the ninth byte holds the 
byte you read or the byte you are going to write. 

The following are parameters for all the opcodes. 

The eleventh byte is the error byte. It should be checked 
each time after you access the file manager. The errors are as 
follows: 

0: NO ERROR 
2: INVALID OPCODE 
3: INVALID SUBCODE 
4: WRITE PROTECTED 
5: END OF DATA 
6: FILE NOT FOUND 
7: VOLUME MISMATCH 
8: I/O ERROR 
9: DISK FULL 
10: FILE LOCKED 

The twelfth byte is unused. The thirteenth and fourteenth 
bytes are used for the address of the work area buffer. This is 
a 45-byte buffer in one of the DOS buffers. 


330 





Modifying LADS: Special Notes on Atari and Apple LADS 


The fifteenth and sixteenth bytes hold the address of the 
track/sector list sector buffer. This is a 256-byte buffer in one 
of the DOS buffers. 

The seventeenth and eighteenth bytes hold the address of 
the data sector buffer. This is another 256-byte buffer in one 
of the DOS buffers. 

Once you have sent the correct parameters, you can call 
the file manager by a JSR to $03D6. You must specify if you 
want to create new file on disk if the one you are accessing 
doesn't exist. This is done by loading the X Register with a 0. 
If you don't want to create a new file, you can load the X Reg¬ 
ister with a 1. If you don't want to create a new file and you 
try to access a file that doesn't exist, you will receive an error 
number 6 in byte 11 of the parameter field. 

Apple LADS uses the routines in the file manager that 
read or write one byte from or to the disk at a time. The gen¬ 
eral routine to transfer the parameters from Tables to the file 
manager can be found between lines 810 and 920 in the 
Openl listing. This is called from the individual subroutines 
for opening, closing, reading, and writing. The OPEN routines 
require a filename. Lines 580-800 handle the transfer of the 
filename from the filename buffer to the specific buffer. 

There is also a check to see whether a file about to be 
opened has been opened previously. This was needed because 
you cannot close a file unless it was previously opened. This is 
handled in the close routine (370-570). 

The PRINT routine handles all output, and the CHARIN 
routine handles all input. There is one input and one output 
channel, and all input and output must be handled through a 
channel. The bytes which govern this event are set in the 
CHKIN and CHKOUT routine. The CHKIN routine (930-940) 
sets all input to come from that file. The CHKOUT routine 
(950-1030) sets all output to go to that file. The PRINT routine 
(1170-1430) and the CHARIN routine (1040-1160) check to see 
what channel is currently open, then go to that routine. 

The BASIC wedge (1700-2530) handles the tokenizing of 
the BASIC text. It checks to see if the text pointer is at $200 
(the input buffer). If not, it goes to the normal GETCHR rou¬ 
tine. Otherwise, it checks to see if the first character is a num¬ 
ber. If so, it goes to the insert line routine, and if not, it checks 
for the characters ASM. If that is found, the wedge concludes 
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its work by putting the filename at the top of the screen and 
jumping to the start of LADS. 

The insert line routine gets the line number, then jumps 
to the Apple tokenize routine, which loads the Y Register with 
the length of the line plus six and then jumps to the normal 
line insert and tokenize routine. 

The last subroutine in Openl is the first thing that is 
called when you BRUN LADS. It initializes the wedge and sets 
HIMEM to the start of LADS. 
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How to Use LADS 


Here is a step-by-step explanation of how to assemble ma¬ 
chine language programs using the LADS assembler. As you 
familiarize yourself with its features and practice using it, you 
will likely discover things about the assembler which you'll 
want to change or features you'll want to add. For example, if 
you find yourself frequently using an impossible addressing 
mode like LDY (15,Y), you might want to insert an error trap 
for that into LADS source code. Chapter 11, "Modifying 
LADS," shows you how these customizations can be accom¬ 
plished. But here is a description of the features which are 
built into LADS. 

Apple and Atari Versions 

For the most part, the commands and features of LADS are 
the same for all versions: Apple, Atari, and Commodore. A 
few differences are discussed at the end of the general instruc¬ 
tions for all versions of LADS. No matter which computer you 
use, you should read the body of this chapter to understand 
how to get the most out of LADS. Then, if you use an Atari or 
an Apple, you can read the special notes at the end of this 
appendix which explain some minor variations applicable to 
those computers. 

General Instructions for Using LADS 
LADS assembles from source files. They are particularly easy 
and convenient to create; just turn on your computer and pre¬ 
tend you're writing a BASIC program. (To create source files 
for the Atari, see "Special Atari Notes" below.) Commodore 
and Apple LADS work with source files created exactly the 
way you would write a BASIC program. Here's an example: 

10 * = $0360 
15 .S 

20 LDA #22:LDY #0 
30 STA $1500,Y 
40 .END TEST 

Use line numbers, colons, and whatever programmer's 
aids (Toolkit, BASIC Aid, POWER, automatic line numbering, 
etc.) you ordinarily use to write BASIC itself. 
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After you've typed in a program, save to disk in the nor¬ 
mal way. (Tape drive users: See special "Note to Tape Users" 
at the end of this appendix.) Notice line 10 in the example 
above. The first line of any LADS source file must provide the 
starting address, the address where you want the ML program 
to begin in the computer's memory. You signify this with the 
*= symbol, which means "program counter equals." When 
LADS sees *=, it sets the Program Counter to the number 
following the equals sign. Remember that there must be a space 
between the = and the starting address. 

The last line of each LADS source file must contain either 
the .END pseudo-op or the .FILE pseudo-op. Both of them 
link source files together in case you want to chain several 
files into one large ML program. However, .FILE names the 
next linked source file in the chain whereas .END always 
specifies the first source file of the chain. If there is only one 
file (as in our example above), you still must end it with .END 
and give its name as the first file. More about this shortly. 

Also notice that you can use either decimal or hexadeci¬ 
mal numbers interchangeably in LADS. Lines 10 and 30 con¬ 
tain hex; line 20 has decimal numbers. 

After you've saved the source code to disk, you can as¬ 
semble it by loading LADS and then typing the name of the 
source file in the upper left-hand corner of the screen. (The 
Atari version differs here as well.) Let's go through the process 
step by step. Type in the little source program above as if you 
were writing a BASIC program. SAVE it by typing: 

SAVE "TEST",8 
Then LOAD "LADS",8,1 

Type NEW 

Clear the screen and type in the source file's name in the 
upper left-hand corner: 

TEST 

Then cursor down a line or two and type SYS 11000 and 
hit the RETURN key. That will activate LADS on the Com¬ 
modore 64, VIC-20, and 8032 PET/CBM. See the special notes 
below for using the Atari and Apple versions of LADS. 

You will see the assembler create the object code, the bytes 
which go into memory and comprise the ML program. 

Note: Be sure to remember that every source code program 
must end with the .END NAME pseudo-op. In our example, we 
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concluded with .END TEST because TEST is the name of the 
only file in this source code. Also notice that you do not use 
quotes with these filenames. 

To review: Every source code program must contain the 
starting address in the first line (for example, 10 * = $0800) 
and must list the filename on the last line (for example, 500 
.END SCREENPROG). If you chain several source code pro¬ 
grams together using the .FILE pseudo-op, you end only the fi¬ 
nal program in the chain with the .END pseudo-op. These two 
rules will become clearer in a minute when we discuss the 
.END and .FILE pseudo-ops. 

Features 

There are a number of pseudo-ops (direct instructions to the 
assembler) available in LADS. The .S in line 15 is such an 
instruction. It tells LADS to print the results of an assembly to 
the screen. If you add the following lines to our test program, 
you will cause the listing to be in decimal instead of hex and 
cause LADS to save the object code (the runnable ML pro¬ 
gram) to a disk file called T.OBJ. 

10 *= $0360 

11 .NH 

12 .D T.OBJ 

20 LDA #22:LDY #0 
30 STA $1500,Y 
40 .END TEST 

The pseudo-op .NH means no hex (causing the listing to 
change from hex to decimal), and ,D means create a disk file 
containing the ML program which results from the assembly 
process. 

You can add REM-like comments by using a semicolon. 
And you can turn the screen listing off with .NS, anytime. 

Turn it on or off as much as you want: 

10 *= $0360 

11 .NH 

12 .D T.OBJECTPROGRAM 
15 .NS 

20 LDA #22:LDY #0; load A with 22, load Y with zero 
30 STA $1500,Y 
40 .END TEST 

You turn on printer listings with .P and turn them off 
with .NP. However, for the .P pseudo-op to work, the .S 
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screen listings pseudo-op must also be turned on. In other 
words, you cannot have listings sent to the printer without 
also having them listed on the screen at the same time. To 
have the ML stored into memory during assembly, use .0 and 
turn off these POKEs to memory with .NO. 

The pseudo-ops which turn the printer on and off; direct 
object code to disk, screen, and RAM; or switch between hex 
or decimal printout can be switched on and off within your 
source code wherever convenient. For example, you can turn 
on your printer anywhere within the program by inserting .P 
and turn it off anywhere with .NP. Among other things, this 
would allow you to specify that only a particular section of a 
large program be printed out. This can come in very handy if 
you're working on a 5000-byte program: you would have a 
long wait if you had to print out the whole thing. 

Always put pseudo-ops on a line by themselves. Any 
other programming code can be put on a line in any fashion 
(divided by colons: LDA 15:STA 27:INY), but pseudo-ops 
should be the only thing on their lines. (The .BYTE pseudo-op 
is an exception—it can be on a multiple-statement line.) 


100 .P .s 

(wrong) 

100 .P 

(right) 

110 .s 

(right) 

Here's a summary of the commands you can give LADS: 

.P 

Turn on printer listing of object code (.S must 
be activated). 

.NP 

Turn off printer listing of object code. 

.O 

Turn on POKEs to memory. Object code is 
stored into RAM during assembly. 

.NO 

Turn off POKEs to memory. 

.D filename 

Open a file and store object code to disk during 
assembly (use no quotes around filename). 

.FILE filename 

Link one source file to the next in a chain so 
that they will all assemble together as a single 
large source program (end the chain with .END 
pseudo-op). 

.END filename 

Link the last source file to first source file in a 
chain. If you are assembling from a single file, 
give its filename as the .END so the assembler 
knows where to go for the second pass. Any 
source code must have .END as the last line in 
the program, whether the source code is con- 
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tained within a single disk file or spread across 
a multiple-file chain. 

.S Turn on screen listing during assembly (re¬ 

quired if you desire a hardcopy listing from a 
printer using the ,P pseudo-op). 

.NS Turn off screen listing during assembly. 

.H Turn on hexadecimal output for screen or 

printer listing. 

.NH Turn off hexadecimal output for screen or 

printer listing. (As a result, the listings are in 
decimal.) 

*= Set program counter to new address. 


A Stable Buffer 

The pseudo-op * = is mainly useful when you want to 
create data tables. The subprogram Tables in LADS source 
code is an example. (A subprogram is one of the source code 
files which, when linked together, form an entire ML pro¬ 
gram.) You might want to create an ML program and locate its 
tables, equates, buffers, and messages at the high end of the 
ML program the way LADS does with its Tables subprogram. 
Since you don't know what the highest RAM address will be 
while you're writing the program, you can set * = to some ad¬ 
dress perhaps 4K above the starting address. This gives you 
space to write the program below the tables. The advantage of 
stable tables is that you can easily PEEK them and this greatly 
assists debugging. You'll always know exactly where buffers 
and variables are going to end up in memory after an assem¬ 
bly—regardless of the changes you make in the program. 

Here's an example. Suppose you write: 

10 *= $5000 
20 STA BUFFER 
30 *= $6000 

40 BUFFER .BYTE 00000000000000 
50 .END BUFFEREXAMPLE 

This creates an ML instruction (STA buffer) at address $5000 
(the starting address of this particular ML program), but places 
the buffer itself at $6000. When you add additional instruc¬ 
tions after STA buffer, the location of the buffer itself will re¬ 
main at address $6000. This means that you can write an 
entire program without having to worry that the location of 
the buffer is changing each time you add new instructions, 


339 




Appendix A: How to Use LADS 


new code. It's high enough so that it remains stable at $6000, 
and you can debug the program more easily. You can always 
check if something is being correctly sent into the buffer by 
just looking at $6000. 

This fragment of code illustrates two other features of 
LADS. You can use the pseudo-op .BYTE to set aside some 
space in memory (the zeros above just make space to hold 
other things in a “buffer" during the execution of an ML pro¬ 
gram). You can also use .BYTE to define specific numbers in 
memory: 

.BYTE 65 66 67 68 

This would put these numbers (you must always use deci¬ 
mal numbers with this pseudo-op) into memory at the location 
of the .BYTE instruction. An easy way to create messages that 
you want to print to the screen is to use the .BYTE pseudo-op 
with quotes: 

500 FIRSTLETTERS .BYTE "ABCD":.BYTE 0 

Then, if you wanted to print this message, you could 
write: 

2 *= $0360 
5 LDY #0 

10 LOOP LDA FIRSTLETTERS,Y 
20 BEQ ENDMESSAGE 

30 STA $0400,Y; location of screen RAM on Commodore 64 
40 INY 
50 JMP LOOP 

60 ENDMESSAGE RTS; finished printout 
500 FIRSTLETTERS .BYTE "ABCD:.BYTE 0 
900 .END MESSAGETEST 

Note that using the second set of quotes is optional 
with the .BYTE pseudo-op: You can use either .BYTE 
"ABCD:.BYTE 0 or .BYTE ,, ABCD":.BYTE 0. To POKE num¬ 
bers instead of characters, just leave out the quotes: .BYTE 10 
15 75. And since these numeric values are being POKEd di¬ 
rectly into bytes in memory, they cannot be larger than 255. 

Labels 

With LADS, or with other assemblers that permit labels, you 
need not refer to locations in memory or numeric values by 
using numbers. You can use labels. 

In the example above, line 10 starts off with the word 
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LOOP. This means that you can use the word LOOP later on 
to refer to that location (see line 50). That's quite a conve¬ 
nience: The assembler remembers where the word LOOP is 
used and you need not refer to an actual memory address ; you 
can refer to the label instead. Throughout this book, this kind 
of label is called a PC-type (for Program Counter) or address- 
type label. 

The other type of label is defined is with an assembly 
convention called an equate (an equals sign). This is quite simi¬ 
lar to the way that BASIC allows you to assign value to 
words—it's called "assigning variables" when you do it in 
BASIC. In ML, the = pseudo-op works pretty much the way 
the = sign does in BASIC. Here's an example: 

5 *= $0360 

10 SCREEN = $0400; the location of the 1st byte in RAM of the 
64 screen 

20 HEARTSYMBOL = 83; the heart figure 
30;- 

40 START LDA HEARTSYMBOL; notice "START" (an address- 
type label) 

50 STA SCREEN 
60 RTS 

Line 10 assigns the number $0400 (1024 decimal) to the 
word SCREEN. Anytime thereafter that you use the word 
SCREEN, LADS will substitute $0400 when it assembles your 
ML program. Line 20 "equates" the word HEARTSYMBOL to 
the number 83. So, when you LDA HEARTSYMBOL in line 
40, the assembler will put an 83 into your program. (Notice 
that, like BASIC, LADS requires that equate labels be a single 
word. You couldn't use HEART SYMBOL, since that's two 
words.) 

Line 30 is just a REMark. The semicolon tells the assem¬ 
bler that what follows on that line is to be ignored. Neverthe¬ 
less, blank lines or graphic dividers like line 30 can help to 
visually separate subroutines, tables, and equates from your 
actual ML program. In this case, we've used line 30 to sepa¬ 
rate the section of the program which defines labels (lines 10- 
20) from the program proper (lines 40-60). All this makes it 
easier to read and understand your source code later. 
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Automatic Math 

There are times when you will want to have LADS do addi¬ 
tion for you. That's where the + pseudo-op comes in. If you 
write "label + 1" you will add 1 to the value of the label. 
Here's how it works: 

10 *= 864 

20 MEMTOP = $34; top-of-memory pointer for 8032 PET. 

40' LDA #0:STA MEMTOP:LDA #$50:STA MEMTOP+1 
Here we are putting a new location into the top-of- 
memory pointer which the computer uses to decide where it 
can store things. (Doing that could protect an ML program 
which resides above the address stored in this pointer.) Like 
all pointers, it uses two bytes. If we want to store $5000 into 
this pointer, we store the lower half (the least significant byte) 
into MEMTOP. We'll want to put the number $50 into the 
most significant byte of the pointer—but we don't want to 
waste time making a new label. It's just one higher in memory 
than MEMTOP. Hence, MEMTOP +1. 

You'll also want to use the + pseudo-op command in 
constructions like this: 

10 *= 864 

15 SCREEN = $0400 

17;- 

20 LDA #32; the blank character 
30 LDA #0 

40 START STA SCREEN,Y 
50 STA SCREEN + 256,Y 
60 STA SCREEN + 512,Y 
70 STA SCREEN+768,Y 
80 INY 

90 BNE START 

This is the fastest way to fill memory with a given byte. 

In this case we're clearing out the screen RAM by filling it 
with blanks. But it's easy to indicate multiples of 256 by just 
adding them to the label SCREEN. 

A similar pseudo-op command is the #<. This refers to 
the least significant byte of a label. For example: 

10 *= $0360 

20 SCREEN = $8011 

25 SCREENPOINTER = $FB 

30 ;- 
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40 LDA #<SCREEN; LSB (least significant byte of the label 
SCREEN, $11) 

50 STA SCREENPOINTER 

You'll find this technique used several times in the LADS 
source code. It puts the LSB (least signficant byte) or the MSB 
(most signficant byte) of a label into the LSB or MSB of a 
pointer. In the example above, we want to set up a pointer 
that will hold the address of the screen RAM. The pointer is 
called SCREENPOINTER and we want to put $11 (the LSB of 
SCREEN) into SCREENPOINTER. So, we extract the LSB of 
SCREEN in line 40 by using # combined with the less-than 
symbol. We would complete the job with the greater-than 
symbol to fetch the MSB: 60 LDA #>SCREEN. Notice that 
these symbols must be attached to the label; no space is al¬ 
lowed. For example, LDA #> SCREEN would create problems. 
This LSB or MSB extraction from a label is something you'll 
need to do from time to time. The #< and #> pseudo-ops do 
it for you. 

Chained Files 

It is sometimes convenient to create several source code sub¬ 
programs, to break the ML program source code into several 
pieces. LADS source code is divided into a number of program 
files: Array, Equate, Math, Pseudo, etc. This way, you don't 
need to load the entire source code in the computer's memory 
when you just want to work on a particular part of it. It also 
allows you to assemble source code far larger than could fit 
into available RAM. 

In the last line of each subprogram you want to link, you 
put the linking pseudo-op .FILE NAME (use no quotes) to tell 
the assembler which subprogram to assemble next. Sub¬ 
programs, chained together in this fashion, will be treated as if 
they were one large program. The final subprogram in the 
chain ends with the special pseudo-op .END NAME, and this 
time the name is the filename of the first of the subprograms, 
the subprogram which begins the chain. It's like stringing 
pearls and then, at the end, tying thread so that the last pearl 
is next to the first, to form a necklace. 

Remember that you always need to include the .END 
pseudo-op, even if you are assembling from a single, unlinked 
source code file. In such a case (where you're working with a 
solo file), you don't need the linking .FILE pseudo-op. Instead, 
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refer the file to itself with .END NAME where you list the solo 
file's name. Here's an illustration of how three subprograms 
would be linked to form a complete program: 

5 * = 864 

10; "FIRST"-first program in chain 

20;its first line must contain the start address 

30;- 

40 LDA #20 
50 STA $0400 
60 .FILE SECOND 

Then you save this subprogram to disk (it's handy to let 
the first remark line in each subprogram identify the sub¬ 
program's filename): 

SAVE "FIRST",8 

Next you create SECOND, the next link in the chain. But 
here, you use no starting address; you enter no *= since only 
one start address is needed for any program: 

10 ; "SECOND" 

20 INY:INX:DEY:DEX 
30 .FILE THIRD 
SAVE"SECOND",8 

Now write the final subprogram, ending it with the clasp 
pseudo-op .END NAME which links this last subprogram to 
the first: 

10; "THIRD" 

20 LDA #65:STA $0400 
30 .END FIRST 
SAVE "THIRD",8 

When you want to assemble this chain, just type FIRST in 
the upper left-hand corner of the screen, SYS to LADS, and it 
will assemble the entire chain. 

If you want the object code (the finished ML program) 
stored in the computer's memory during the LADS assembly, 
add this line to FIRST above: 

35 .O 

If you want to save the object code as an ML program on 
disk that can be later loaded into the computer and run, add 
this line to FIRST: 
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36 .D PROGRAMNAME 

When LADS is finished assembling, there will be an ML 
program on disk called PROGRAMNAME. You can load it 
and SYS 864 (that was the start address we gave this pro¬ 
gram), and the newly assembled ML program will execute. 

One additional pseudo-op is the #". It is sometimes useful 
when you want to load the Accumulator with a particular 
ASCII character and don't offhand recall the numerical value. 
The letter A is 65 in the ASCII code. If you LDA #65:STA 
SCREEN, you would store the letter A to the screen. But, for 
convenience, you can LDA #"A:STA SCREEN. You can, in 
other words, use the #" followed by the character itself rather 
than by its ASCII code number. 

Rules for LADS 

Here are the rules you need to follow when writing ML for 
LADS to assemble: 

1. In general, all equate labels (labels using an equals sign) 
should be defined at the start of your program. While this isn't 
absolutely necessary for labels with numbers above 255 (see 
SCREEN in the example below), it is the best programming 
practice. It makes it easier for you to modify your programs 
and simplifies debugging. LADS itself locates all its equate la¬ 
bels in the subprogram Defs, the first subprogram in its chain 
of source code files. 

What's more, it is necessary that any equate label with a 
value lower than 256 be defined before any ML mnemonics 
reference that label. So, to be on the safe side, just get into the 
habit of putting all equate labels at the very start of your 
programs: 

10 *= 864 

20 ARRAYPOINTER = $FB; (251 decimal), a zero page address 
30 OTHERPOINTER = $FD; (253 decimal), another zero page 
address 

40 ;- 

50 LDY #0:LDA $41 
60 STA ARRAYPOINTER,Y 
70 SCREEN = $8000 

Notice that it's permissible to define the label SCREEN 
anywhere in your program. It's not a zero page address. You 
do have to be careful, however, with zero page addresses (ad¬ 
dresses lower than 255). So most ML programmers make it a 
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habit to define all their equates at the start of their source 
code. 

2. Put only one pseudo-op on a line. Don't use a colon to 
put two pseudo-ops on a single line: 

10 * = 864 

20 .0:.NH (wrong) 

30 .O (right) 

40 .NH (right) 

The main exception to this is the .BYTE pseudo-op. Sometimes 
it's useful to set up messages with a zero at their end to de¬ 
limit them, to show that the message is complete. When you 
delimit messages with a zero, you don't need to know the 
length of the message; you just branch when you come upon 
a zero: 

10 *= 864 

20 SCREEN = $0364 

30 ; - 

40 LDY #0 

50 LOOP LDA MESSAGE,Y:BEQ END; loading a zero signals 
end of message. 

60 STA SCREEN,Y:INY: JMP LOOP; LADS ignores spaces after a 
colon. 

70 ;-message area here. 

80 MESSAGE .BYTE "PRINT THIS ON SCREEN":.BYTE 0 
Any embedded pseudo-ops like + or = or #> can be 
used on multiple-statement lines. The only pseudo-ops which 
should be on a line by themselves are the I/O (input/output) 
instructions which direct communication to disk, screen, or 
printer, like .P, .S, .D, .END, etc. 

Generally, it's important that you space things correctly. If 
you wrote: 

SCREEN= 864 

LADS would think that your label was screen = instead of 
screen. So you need that space between the label and the 
equals sign. Likewise, you need to put a single space between 
labels, mnemonics, and arguments: 

LOOP LDA MESSAGE 

Running them together will confuse LADS: 
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LOOPLDA MESSAGE 

and 

LOOP LDAMESSAGE 

are wrong. 

It's fine to have leading spaces following a colon, how¬ 
ever. LADS will ignore those (see line 60 above). Also, spaces 
within remarks are ignored. In fact, LADS ignores anything 
following a semicolon (see line 70). However, the semicolon 
should come after anything you want assembled. You couldn't 
rearrange line 50 above by putting the BEQ END after the re¬ 
mark message. It would be ignored because it followed the 
semicolon. 

When using the text form of .BYTE, it's up to you 
whether you use a close quote: 

50 MESSAGE .BYTE "PRINT THIS" (right) 

60 MESSAGE .BYTE "PRINT THIS (also right) 

3. The first character of any label must be a letter, not a 
number. LADS knows when it comes upon a label because a 
number starts with a number; a label starts with a letter of the 
alphabet: 

10 *= 864 
20 LABEL = 255 
30 LDA LABEL 
40 LDA 255 

Lines 30 and 40 accomplish the same thing and are cor¬ 
rectly written. It would confuse LADS, however, if you wrote: 
20 5LABEL = 255 (wrong) 

since the number 5 at the start of the word label would signal 
the assembler that it had come upon a number, not a label. 
You can use numbers anywhere else in a label name—just 
don't put a number at the start of the name. Also avoid using 
symbols like # < > * and other punctuation, shifted letters, or 
graphics symbols within labels. Stick with ordinary 
alphanumerics: 

10 5LABEL (wrong) 

20 LABEL15 (right) 

30 *LABEL* (wrong) 

4. Move the Program Counter forward, never backward. The 
*= pseudo-op should be used to make space in memory. If 
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you set the PC below its current address, you would be writ¬ 
ing over previously assembled code: 

10 *= 864 
20 LDA #15 
30 *= 900 (right) 

10 *= 864 
20 LDA #15 

30 *= 864 (wrong, you'll assemble right over the LDA #15) 
Special Note to Tape Drive Users 

LADS will assemble source code from disk or RAM memory. 
It is possible to use the assembler with a tape drive, using the 
RAM memory-based version (see Chapter 11). Of course, disk 
users can also assemble from RAM if they choose. But tape 
users must. 

There is a restriction when using a tape drive as the out¬ 
board memory device. You cannot link files together, forming 
a large, chained source code listing. The reason for this is that 
LADS, like all sophisticated assemblers, makes two passes 
through the source code. This means that tape containing the 
source code would have to be rewound at the end of the first 
pass. 

It would be possible, of course, to have LADS pause at 
the end of pass 1, announce that it's time to rewind the tape 
(see Atari notes below), and then, when you press a key, start 
reading the source code from the start of the tape. But this 
causes a second problem: The object code cannot then be 
stored to tape. A tape drive cannot simultaneously read and 
write. 

The best way to use LADS with a tape drive is to as¬ 
semble from source code in RAM memory and to use the .0 
(store object code to RAM pseudo-op). Then, when the fin¬ 
ished object code is in RAM, use a monitor program like 
"Tinymon" or ''Micromon'' to save it to tape. If you have ac¬ 
cess to a disk drive, you could construct a version of LADS 
which automatically directs object code to tape during assem¬ 
bly using the ,D pseudo-op. 

Special Atari Notes 

The Atari version of LADs is a complete programming 
environment. Unlike the Commodore and Apple versions of 
LADS, where you use the BASIC program editor to write and 
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edit your source code, the Atari version has a special editor 
integrated into LADS itself. This is necessary because with 
Atari BASIC, you can only enter BASIC instructions. The line 
10 *= $0600 
is just as illegal as 
10 PRIMT ''NAME":INPPUT A# 

Both are coolly received with an error message. This syntax 
checking is fine when working with BASIC, but prevents the 
standard BASIC editor from accepting and storing LADS 
source code. Once the decision was made to create an entirely 
new source code editor, LADS became a self-contained pack¬ 
age. The BASIC cartridge is neither needed nor especially de¬ 
sired. Since LADS takes over the Atari, DOS is the only other 
program in memory, freeing up all the RAM ordinarily used 
by BASIC. 

One note: If you'd rather use a word processor or other 
text editor to enter and edit your source code, you can, as long 
as your editor will send out numbered statements, in ASCII, 
ending with 155's (ATASCII carriage returns). Most Atari 
word processors conform to this; it you're not sure, experiment 
with a short source code program. Be sure to end each source 
line with a carriage return. You can then load the file into the 
LADS editor or assemble directly from disk with the LADS 
D:filename command. 

Entering LADS 

The object code for Atari LADS is typed in with the Atari ver¬ 
sion of MLX, a machine language entry editor. See Appendix 
C for details. After you've typed it in, you can save LADS to 
disk under the filename AUTORUN.SYS. This will cause 
LADS to load and automatically run when you turn on (boot) 
your computer and disk drive. LADS as assembled requires at 
least 40K of memory. If you have access to a 40K Atari, you 
can reassemble the source code to almost any memory loca¬ 
tion you want (see “Programming Atari LADS" in Chapter 
11 ). 

If you didn't save LADS as AUTORUN.SYS, you need to 
load it from the DOS menu, then use menu selection M and 
run it at address 8000. If you bought the LADS source/object 
code disk, LADS will automatically load and run when you in¬ 
sert the disk and turn on your system. LADS will then print 
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its prompt, “LADS Ready." This indicates that LADS is ready 
to receive commands or source code. 

Using the Editor 

You enter your ML source code just as you do in BASIC. To 
start a new line, type a line number, then the text, followed by 
the RETURN key. To delete a line, type the line number by it¬ 
self, then press RETURN. To insert a line between two exist¬ 
ing lines, just give it a line number that falls between the two. 
For example, line 105 will end up between line 100 and 110. 

The editor assumes that a line beginning with a line num¬ 
ber should be stored as part of your source code. If your line 
starts with leading zeros, these leading zeros will be erased. 

As the editor reads the line you've entered, it converts lower¬ 
case to uppercase, and inverse video characters to normal 
ones. It will not convert characters within double quotes 
(SHIFT-2) or after a semicolon, which marks the start of a 
comment. This line: 

0100 Ida #"a":jmp ($fffc); FFFC is the reset vector 
would become: 

100 LDA #"a":JMP ($FFFC); FFFC is the reset vector 
If there is no line number, the editor assumes you've entered 
an editor command. Note that if a command has any param¬ 
eters after it, the command must be followed by a space. 

Atari Editor Commands 
LIST 

LIST all by itself displays the entire source program. LIST 150 
lists just line 150. LIST 110-160 shows all the lines between 
and including lines 110 through 160. If you want to list from a 
certain line number to the end of your program, just make the 
second line number very large, as in LIST 2000,9999. If you 
want to send a listing to the printer, use the SAVE command. 
SAVE device:filename 

SAVE works just like LIST, but sends the listing to the speci¬ 
fied device with the given filename. To list the entire source 
code to the printer, use SAVE P:. Be sure to put a space be¬ 
tween the command and the device. To LIST to cassette, use 
SAVE C:. When using disk, remember to use D:, for example, 
SAVE D:DEFS.SRC. We recommend that you do use an ex¬ 
tender, such as .SRC (see .FILE below). Check the DOS man- 
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ual for examples of legal filenames. You can also save a 
portion of the program. SAVE P:,100,150 would list lines 100 
to 150 to the printer. 

LOAD device:filename 

Load will replace any source code in memory with that read 
from the specified device. LOAD C: reads from tape, LOAD 
D:DEFS.SRC or LOAD D2:INDISK.SRC from disk. 

MERGE deviceifilename 

Merge is used to combine two programs. MERGE works just 
like ENTER does in BASIC. Instead of the keyboard being 
used to accept text, the editor looks to the file for input. After 
all the lines have been entered, the editor restores keyboard 
control. MERGE does not just append one program to the 
other. If there is a line 150 in the program to be merged, it 
will replace line 150 in memory. Therefore, MERGE can re¬ 
place selected lines, or add lines to the top or bottom of a pro¬ 
gram in memory. You can use SAVE to list to disk a part of a 
program, then use MERGE to add it to another program. You 
can have a whole disk full of commonly used routines, then 
use MERGE to combine the routines you need, speeding up 
the development of large ML programs. 

DOS 

If used with standard Atari DOS 2.OS, this command will load 
and run DUP.SYS, the DOS menu. Remember that DUP.SYS 
will erase any program in memory if MEM.SAV is not used. 
Now you can manipulate files and display the disk directory. 
The DOS command makes an indirect jump through the DOS 
vector, location $0A. 

SYS address 

Transfers control with a JSR to the decimal address following 
the SYS. Always put a space between SYS and the address. If 
the routine ends with a RTS, control will return to the LADS 
editor. If a BRK ($00) is encountered, the editor will also be re¬ 
entered through the breakpoint, and the address where the 
BRK was found will be displayed. 

LADS (optional device:filename) 

Transfers control to the assembler. Although the editor merely 
manipulates text source code, it's as if all of LADS was just 
another editor command. When LADS takes control, the left 
margin is set to 0, to give a full 40-column width for printout. 
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The left margin reverts to 2 when the editor is reentered. If 
you give the filename, as in LADS D:DEFS.SRC, then LADS 
will assemble the given source code from disk. This is like 
Commodore LADS' default—assembling from disk. If you 
leave off the filename, LADS will behave as a RAM-based 
assembler, reading the current source code in memory and 
assembling it. Unlike Commodore or Apple LADS, where you 
change the source code and reassemble a separate version of 
LADS dedicated to RAM-based assembly. Atari LADS features 
both disk assembly and memory assembly in the same pro¬ 
gram, executing the appropriate code by checking RAMFLAG. 
For more information on this, see "Notes on the Structure of 
Atari LADS" in Chapter 11. 

After an assembly is complete, or if you halt assembly by 
hitting the BREAK key, control will return to the editor. 

Error Handling 

Within the editor, any error will be displayed with Error - and 
the error number. This may be Error - 170 for file not found 
when you try to load a nonexistent file from the editor, or it 
may be an error returned from the assembler. Use your DOS 
or BASIC manual for a list of error numbers and error mes¬ 
sages. Any illegal command or a command the editor can't 
understand will result in a Syntax Error. 

Special Notes for Cassette Users 

The filename for the cassette is C:. It is possible to assemble 
from cassette. When you see the .END, and hear the single 
tone, rewind the tape, press play, and then press any key to 
start the second pass. If you're using linked files, each file 
must link to the next with .FILE C:. The last source file should 
end with .END C:. Assembling from tape is a cumbersome af¬ 
fair in any case. It might be preferable for tape drive users to 
keep all source code in memory, then assemble to memory, 
using the cassette only to store and retrieve source code. 

Pseudo-ops 

All the pseudo-ops described above for the Commodore and 
Apple versions are fully operative in Atari LADS. A few usage 
notes follow: 

.O This causes the assembler to POKE the object code into 
memory. Its converse is .NO. You must not overwrite the 
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assembler, which uses memory from $8000 to approximately 
$9FFF. During assembly, the labels are stored below $8000, 
descending towards $7000. Only a very long program will 
need memory between $7000 and $8000 when it is assembled. 
Also avoid overwriting your source code, which starts at 
$2000 and works its way up. 

A good location for very small routines is in page 6, 
$0600-$06FF. During assembly, all of page 5 will be cor¬ 
rupted. You can store your object code fairly safely at $5000 
or $6000, assuming your source code in memory is not too 
long. You can break your source code into modules, which 
will link together with .FILE and .END (see below). If you re¬ 
move all cartridges (or hold down OPTION when you turn on 
your machine, which removes BASIC on a 600XL or 800XL), 
there will be unused memory from $A000 to about $AFFF, 
less screen memory usage. 

An alternative to .O is the .D pseudo-op, which stores the 
object code to disk. This entirely avoids any memory con¬ 
straints. You can go to DOS and load the object code, then use 
the M. RUN AT ADDRESS option to execute and test it. 

.D If storing object code to disk, be sure to use the D:, as in .D 
D:LADS.OBJ. Storing object code to tape is risky, since an 
excessively long leader may be written. Besides, there is no 
facility for loading cassette object files without a BASIC loader 
program. After the assembly is complete, you can go to the 
DOS menu and use menu selection L to load your program, 
then selection M to run it. Menu selection M. RUN AT AD¬ 
DRESS requires a hexadecimal number without the dollar 
sign. 

.P This assumes an 80-column printer. Remember to use it 
with .S if you want the assembly listing to also go to the 
printer. If the printer is not turned on, assembly will abort and 
you will be returned to the editor with an Error - 138. 

.FILE Be sure to follow .FILE (or simply .F) with a space, then 
D:, followed by the filename. You may get occasional errors if 
you don't use an extender. It is recommended that you add 
the extender .SRC, as in VALDEC.SRC (SRC for SouRCe). For 
example, .FILE D:EVAL.SRC 

.END Use this only at the end of the last file in a linked chain 
of source code. You can abbreviate it to .E. An example of 
proper usage is .END D:DEFS.SRC 
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Programming Aids 

Following are two utility programs, written in BASIC. Program 
A-l will renumber an Atari LADS source program. Just run it 
and follow the prompts. Program A-2 partially converts a file 
from the Assembler Editor, EASMD, or MAC/65 assembler to 
the LADS syntax. It removes leading spaces after a line num¬ 
ber, trailing spaces at the end of a line, and tucks comments 
right next to the operand fields. Into the DATA statements 
starting at 500, insert the filenames of the files you want con¬ 
verted. Be sure to make END the last item in the DATA state¬ 
ments. To use LADS to assemble code written for one of these 
other assemblers, you must complete the conversion yourself 
by adjusting the pseudo-ops. See the descriptions of the LADS 
pseudo-ops at the start of this appendix. 

Program A-l. Atari LADS Renumber Utility 

10 GRAPHICS 0i? ,"Renumber LADS”:? ,"- 

20 DIM T*(20).Ft<20),F2$(20),At<120) 

30 ? "Enter filename. Do not use D:”:INPUT T 

i :F$="D:":F*(3)=Tt 
40 F2$=”D:TEMP,":F2$!LEN(F2t)+1)=T$ 

30 TRAP 500:OPEN #1,4,0,F*:TRAP 40000 
60 ? :? "We will renumber the entire file." 

70 ? s? "What line number do you want the fi 

le":? "to start with?100£4 LEFT>“;:INPUT 
Tt:LNUM = VAL <T*> 

30 ? :? "What step do you want between”:? "e 

act. 1 ine?10{3 LEFT) " : : INPUT T$ : INCR = VAL<T 
$ > 

90 OPEN #2,8,0,"D:TEMP” 

100 TRAP 150:INPUT #1,A*:Z=1 

110 IF A $ < Z,Z > <>" " THEN IF Z<LEN(A$) THEN Z 

= Z + 1:GOT O 110 

130 PRINT #2; LNL1M; A$ <Z> : LNUM = LNUM+I NCR 
140 GOTO 100 

150 IF PEEK(195)<>136 THEN 200 

160 CLOSE #1-.CLOSE #2:XIO 33,#1,0,0,F$:X IO 3 
2,#1,0,0,F2$ 

170 ? :? "Finished!“:END 

200 ? "{BELLI Error - ";PEEK(195);" during re 

number":END 

500 ? "(BELUCannot open ";F*:? "Error - ”P 

EEK<195):END 
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Program A-2. Atari LADS File Converter Utility 

3 GRAPHICS 0 

4 DIM At<100).T$(100),F$(20),F2t(50) 

10 READ T$:? Tt: F$=''D: " : F$ (3) =T$ : IF T$="END” 
THEN END 

20 F2t="D;TEMP. ”:F 2 $ <LEN(F2t) +1 )=T$ 

100 OPEN #1,4,0,F* 

110 OPEN #2.8,0,"D:TEMP" 

130 TRAP 170:INPUT #1.A$:IF ft$(1,1)="0" THEN 
A$=At(2) 

135 2=LEN(At) 

140 IF At < Z, Z)=" " THEN Z = Z-l:GOTO 140 

142 At = A$( 1. Z) s Z=1 

144 IF At i Z, Z > <>" " THEN 7 = Z + l:GOTO 144 

1 45 SZ=Z: Z = Z +1 

146 IF At(Z.Z)=" n THEN Z=Z+l:GOTD 146 

147 Tt = At< Z) :At = At <1„SZ) :At(SZ + 1)=Tt: Z = LEN <A 

t):IF T t ! 1 , 1 > = 11 ; 11 THEN 169 

150 IF A*<Z,Z)<>";" THEN Z=Z-1:IF Z THEN 150 

152 SZ=Z:Z=Z1:IF Z=0 THEN 169 

154 IF At'Z.Z)=” u THEN Z=Z-l:GOTD 154 

156 Tt=At(SZ>:A$=At!l,Z):At(Z+l)=Tt 

169 PRINT 42:At:GOTO 130 

170 CLOSE 4 1 : CLOSE 42-.X1D 33 ,#1,0,0, Ft: X I O 3 
2.41,0,0,F2t:GOTO 10 

180 REM PUT YOUR FILENAMES HERE 

190 REM E.G, DATA DEFS.SRC,EVAL.SRC,END 

Special Apple Notes 

Once you have typed in Apple LADS, you must BSAVE it to 
disk. The start address is $79FD and the length is $1674. To 
execute LADS you BRUN the binary file. After it loads and 
sets up its special wedge (see Chapter 11 for details on this 
wedge), you will be prompted with the BASIC prompt and a 
cursor. You can now type in your files and save them just as 
you would an Applesoft file. After saving the program to disk, 
you assemble it by typing: 

ASM filename 

Make sure you have a space between ASM and your filename. 
If you do not have the space, you will get a syntax error. With 
the wedge in, the BASIC tokenize routine does not execute, so 
you cannot type in BASIC programs after you BRUN LADS. 
Otherwise, all the features of Apple LADS operate as de¬ 
scribed under the general instructions at the start of this 
chapter. 
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LADS will run on the Commodore 64, VIC-20, PET/CBM, 
Atari, and Apple computers. If you have a Commodore or 
Atari you should use the "MLX" machine language editor to 
enter the object code for LADS. Complete instructions on how 
to enter the object code using MLX, as well as the MLX pro¬ 
grams, can be found in Appendix C. PET/CBM owners may 
find it convenient to use their built-in machine language mon¬ 
itor to make the changes shown in Programs B-3a and B-3b. 
Apple users should use the Apple built-in monitor and enter 
the hex data found in Program B-5. Additional instructions for 
the use of LADS can be found in Appendix A, "How to Use 
LADS." 

LADS is nearly 5K long, and for those who prefer not to 
type it in, it can be purchased on a disk by calling COMPUTE! 
Publications toll free at 1-800-334-0868. Be sure to state 
whether you want the Commodore, Atari, or Apple disk. 


Program B-l. Commodore 64 LADS: MLX Format 

11000 -.169,000,160,048,153,113,123 

11006 :062,136,208,250,169,248,047 

11012 :133,176,133,055,141,135,009 

11018 :062,169,042,133,177,133,214 

11024 :056,141,136,062,169,001,069 

11030 :141,157,062,185,000,004,059 

11036 :201,032,240,012,176,003,180 

11042 s024,105,064,153,150,061,079 

11048 :200,076,025,043,153,150,175 

11054 :061,200,185,000,004,201,185 

11060 :032,208,226,136,132,183,201 

11066 :032,248,049,032,184,050,141 

11072 ;169,000,141,119,062,032,075 

11078 :104,051,173,138,062,208,038 

11084 :063,032,133,056,169,230,247 

11090 :032,210,255,169,076,032,088 

11096 :210,255,169,065,032,210,005 

11102 :255,169,068,032,210,255,059 

11108 :169,083,032,210,255,032,113 

11114 :133,056,173,128,062,208,098 

11120 :011,169,068,133,251,169,145 

11126 5061,133,252,032,219,050,097 

11132 :173,122,062,133,253,141,240 

11138 5115,062,173,123,062,133,030 
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11144 :254,141,116,062,032,225,19s 
11150 :255,173,119,062,240,003,226 
11156 :076,168,046,032,104,051,113 
11162 :169,000,141,127,062,141,026 
11168 :137,062,172,138,062,208,171 
11174 :003,076,198,043,140,158,016 
11180 5062,173,156,062,240,012,109 
11186 5032,142,056,032,063,056,047 
11192 5032,103,056,032,063,056,014 
11198 :173,149,062,240,003,032,081 
11204 s059,055,076,106,050,173,203 
11210 sll4,062,240,023,201,003,077 
11216 :208,114,169,001,141,114,187 
11222 5062,173,071,061,208,104,125 
11228 sl69,008,024,109,113,062,193 
11234 :141,113,062,076,185,045,080 
11240 :173,138,062,240,057,160,038 
11246 :255,200,185,068,061,240,223 
11252 :046,153,150,061,201,032,119 
11258 :208,243,200,185,068,061,191 
11264 :201,061,208,003,076,233,014 
11270 5045,162,000,142,158,062,063 
11276 s138,153,150,061,185,068,255 
11282 5061,240,008,157,068,061,101 
11288 :232,200,076,016,044,157,237 
11294 5068,061,076,198,043,032,252 
11300 :130,048,032,036,048,076,150 
11306 5198,043,173,089,061,201,039 
11312 5064,176,006,173,090,061,106 
11318 s238,137,062,073,128,141,065 
11324 5120,062,032,207,048,076,093 
11330 sl97,044,160,000,140,127,222 
11336 5062,173,071,061,201,032,160 
11342 :240,003,076,071,047,185,188 
11348 5072,061,201,065,144,003,118 
11354 s238,127,062,153,089,061,052 
11360 :200,185,072,061,240,022,108 
11366 :153,089,061,201,065,144,047 
11372 5003,238,127,062,200,185,155 
11378 5072,061,240,006,153,089,223 
11384 5061,076,112,044,136,140,177 
11390 :126,062,173,128,062,208,117 
11396 5064,173,127,062,208,162,160 
11402 sl69,089,133,251,169,061,242 
11408 sl33,252,160,000,173,089,183 
11414 :061,201,048,176,007,024,155 
11420 :230,251,144,002,230,252,241 
11426 :177,251,240,016,201,041,064 
11432 :240,012,201,044,240,008,145 


358 




Appendix B: LADS Object Code 


11438 :201,032,240,004,200,076,159 
11444 :162,044,072,152,072,169,083 
11450 :000,145,251.032.219.050-115 
11456 :104,168,104,145,251,173,113 
11462 :089,061,201,035,240,063,119 
11468 :201,040,240,023,173,114,227 
11474 : 062,201,008,240,055,201,209 
11480 ;003,208,113,169,008,024,229 
11486 :109,113,062,141,113,062,054 
11492 :076,185,045,172,126,062,126 
11498 :185,089,061,201,041,240,027 
11504 :016,173,114,062,201,001,039 
11510 :208,009,169,016,024,109,013 
11516 :113,062,141,113,062,173,148 
11522 :114,062,201,006,240,083,196 
11528 s076,126,045,076,153,045,017 
11534 :173,138,062,208,003,076,162 
11540 :126,045,056,173,122,062,092 
11546 :229,253,072,173,123,062,170 
11552 :229,254,176,014,201,255,137 
11558 s240,004,104,076,010,048,008 
11564 :104,016,012,076,062,045,103 
11570 ;240,004,104,076,010,048,020 
11576 ;104,016,003,076,010,048,057 
11582 -.056,233,002,141,122,062,166 
11588 :169,000,141,123,062,076,127 
11594 :126,045,172,126,062,136,229 
11600 :185,089,061,201,044,208,100 
11606 :004,200,076,242,046,173,059 
11612 :113,062,201,076,208,003,243 
11618 :076,135,045,173,123,062,200 
11624 :208,085,173,114,062,201,179 
11630 :006,176,013,201,002,240,236 
11636 :009,169,004,024,109,113,032 
11642 {062,141,113,062,032,130,150 
11648 {055,032,168,055,076,233,235 
11654 {045,172,126,062,185,089,045 
11660 {061,201,041,208,005,169,057 
11666 {108,141,113,062,076,227,105 
11672 {045,173,090,061,201,034,244 
11678 {208,006,173,091,061,141,070 
11684 {122,062,173,114,062,201,130 
11690 {001,208,209,169,008,024,021 
11696 {109,113,062,141,113,062,008 
11702 {076,126,045,032,130,055,134 
11708 {076,233,045,173,114,062,123 
11714 {201,002,240,004,201,007,081 
11720 {208,012,173,113,062,024,024 
11726 {105,008,141,113,062,076,199 
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11732 :227,045,201,006,176,009,108 
11738 s173,113,062,024,105,012,195 
11744 :141,113,062,032,130,055,245 
11750 :032,194,055,173,138,062,116 
11756 :208,003,076,165,046,173,139 
11762 sl56,062,208,003,076,165,144 
11768 5046,173,158,062,208,062,189 
11774 sl73,152,062,240,042,169,068 
11780 5020,056,229,211,141,139,032 
11786 5062,032,204,255,162,004,217 
11792 5032,201,255,172,139,062,109 
11798 5016,005,160,002,076,031,056 
11804 5046,169,032,032,210,255,004 
11810 sl36,208,250,032,204,255,095 
11816 sl62,001,032,198,255,169,089 
11822 5020,133,211,169,150,133,094 
11828 s251,169,061,133,252,032,182 
11834 5046,056,169,030,056,229,132 
11840 5211,141,140,062,169,030,049 
11846 5133,211,173,152,062,240,017 
11852 5031,032,204,255,162,004,252 
11858 5032,201,255,172,140,062,176 
11864 5240,010,048,008,169,032,083 
11870 5032,210,255,136,208,250,161 
11876 5032,204,255,162,001,032,018 
11882 5198,255,032,155,056,173,207 
11888 sl50,062,240,017,201,001,015 
11894 s208,005,169,060,076,127,251 
11900 5046,169,062,032,210,255,130 
11906 5032,192,056,173,159,062,036 
11912 s240,019,032,063,056,169,203 
11918 5059,032,210,255,169,000,099 
11924 sl33,251,169,002,133,252,064 
11930 5032,046,056,032,133,056,253 
11936 5173,119,062,208,003,076,033 
11942 5140,043,173,138,062,208,162 
11948 5027,238,138,062,173,115,157 
11954 5062,133,253,173,116,062,209 
11960 5133,254,032,204,255,169,207 
11966 5001,032,195,255,032,248,185 
11972 5049,076,061,043,032,204,149 
11978 s255,169,001,032,195,255,085 
11984 sl69,002,032,195,255,173,010 
11990 sl52,062,240,021,032,204,157 
11996 s255,162,004,032,201,255,105 
12002 sl69,013,032,210,255,032,169 
12008 s204,255,169,004,032,195,067 
12014 s255,076,116,164,185,089,099 
12020 5061,201,088,240,101,136,047 
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12026 :136,185,089, 
12032 :208,003,076, 
12038 :123,062,208, 
12044 :062,201,002, 
12050 s 005,240,078, 
12056 :122,173,114, 
12062 :208,012,173, 
12068 :105,024,141, 
12074 :227,045,173, 
12080 :005,240,008, 
12086 : 218,047,076, 
12092 s113,062,024, 
12098 :113,062,076, 
12104 :167,056,032, 
12110 :087,133,251, 
12116 :252,032,046, 
12122 :056,076,233, 
12128 5062,208,068, 
12134 5201,002,208, 
12140 5024,109,113, 
12146 5062,076,126, 
12152 s240,016,201, 
12158 s201,005,240, 
12164 5032,218,047, 
12170 5169,020,024, 
12176 5141,113,062, 
12182 s201,089,208, 
12188 5062,201,182, 
12194 5025,047,076, 
12200 sll4,062,201, 
12206 sl69,024,024, 
12212 5141,113,062, 
12218 5201,001,240, 
12224 5240,012,201, 
12230 sl69,051,032, 
12236 5071,047,169, 
12242 sll3,062,141, 
12248 5227,045,141, 
12254 5141,062,142, 
12260 5186,032,210, 
12266 sl04,168,152, 
12272 sl52,032,205, 
12278 5062,172,141, 
12284 5062,096,160, 
12290 5068,061,200, 
12296 5248,096,032, 
12302 sl67,056,032, 
12308 sl98,133,251, 
12314 5252,032,046, 


061,201,041,195 

231,044,173,223 

015,173,114,189 

240,082,201,032 

201,001,240,015 

062,201,001,185 

113,062,024,110 

113,062,076,045 

114,062,201,096 

169,049,032,039 

071,047,173,174 

105,028,141,021 

227,045,032,109 

142,056,169,182 

169,062,133,145 

056,032,133,123 

045,173,123,028 

173,114,062,015 

012,169,016,198 

062,141,113,158 

045,201,001,113 

003,240,012,064 

008,169,050,031 

076,071,047,111 

109,113,062,123 

185,091,061,029 

010,173,113,176 

240,003,076,152 

126,045,173,142 

002,208,012,255 

109,113,062,163 

076,227,045,076 

016,201,003,080 

005,240,008,130 

218,047,076,023 

028,024,109,140 

113,062,076,009 

139,062,140,202 

140,062,169,170 

255,104,170,161 

072,138,072,172 

189,173,139,106 

062,174,140,229 

000,152,153,107 

192,080,208,043 

133,056,032,093 

142,056,169,124 

169,061,133,197 

056,032,133,065 
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12320 :056, 
12326 :200, 
12332 :201, 
12338 s140, 
12344 ;237, 
12350 :177, 
12356 :000, 
12362 s145, 
12368 :201, 
12374 s076, 
12380 ; 061, 
12386 :165, 
12392 :254, 
12398 :202, 
12404 :240, 
12410 :200, 
12416 :061, 
12422 :142, 
12428 :255, 
12434 :252, 
12440 :056, 
12446 : 133, 
12452 s 023, 
12458 :062, 
12464 s062, 
12470 :000, 
12476 :172, 
12482 :145, 
12488 :145, 
12494 :045, 
12500 : 173, 
12506 i221, 
12512 :062, 
12518 :165, 
12524 :162, 
12530 :002, 
12536 :000, 
12542 s178, 
12548 :002, 
12554 :076, 
12560 :142, 
12566 :062, 
12572 s 240, 
12578 s142, 
12584 s137, 
12590 :221, 
12596 s 240, 
12602 :232, 
12608 :142, 


076,126,045, 

185,068,061, 

032,208,246, 

132,062,056, 

132,062,133, 

233,000,133, 

185,068,061, 

176,200,185, 

032,240,005, 

076,048,200, 

201,061,240, 

253,145,176, 

145,176,174, 

160,000,189, 

008,153,068, 

076,113,048, 

096,032,133, 

056,032,167, 

133,251,169, 

032,046,056, 

076,202,048, 

062,173,128, 

200,200,200, 

169,068,024, 

133,251,169, 

133,252,032, 

133,062,173, 

176,173,123, 

176,104,104, 

173,135,062, 

136,062,133, 

049,169,255, 

056,165,176, 

177,229,179, 

000,056,165, 

133,178,165, 

133,179,160, 

048,012,165, 

198,179,198, 

253,048,165, 

062,165,179, 

177,178,205, 

003,076,063, 

121,062,162, 

062,240,004, 

049,200,185, 

083,201,048, 

209,178,240, 

062,133,178, 


160,255,238 

240,086,110 

200.200.107 
165,176,013 
176,165,193 
177,160,174 
073,128,071 
068,061,141 
145,176,111 
185,068,227 
059,136,082 
200,165,178 
132,062,023 
068,061,022 
061,232,110 
153,068,012 
056,032,026 
056,169,244 
061,133,118 
032,133,185 
136,140,042 
062,208,156 
140,121,024 
109,121,211 
061,105,189 
219,050,100 
122,062,144 
062,200,049 
076,233,014 
133,178,164 
179,032,159 
141,155,184 
229,178,066 
176,099,231 
178,233,006 

179.233.108 
000,177,129 
178,208,019 
178,232,223 
178,141,103 
141,143,080 
120,062,058 
049,232,179 
001,173,183 
200,032,203 
089,061,083 
144,079,079 
241,173,051 
173,143,127 
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12614 :062,133,179,032,221,049,234 
12620 :076,225,048,173,155,062,047 
12626 :048,001,096,173,138,062,088 
12632 :208,002,240,023,032,167,248 
12638 5056,032,142,056,032,063,219 
12644 5056,169,239,133,251,169,093 
12650 5061,133,252,032,046,056,174 
12656 5032,133,056,104,104,173,202 
12662 sll3,062,041,031,201,016,070 
12668 s240,008,173,150,062,208,197 
12674 5003,076,227,045,076,126,171 
12680 5045,236,121,062,240,003,075 
12686 5076,063,049,238,155,062,017 
12692 s240,003,032,230,049,172,106 
12698 sl21,062,173,137,062,240,181 
12704 5001,200,177,178,141,122,211 
12710 5062,200,177,178,141,123,023 
12716 5062,173,150,062,240,010,101 
12722 s201,002,208,030,173,123,147 
12728 5062,141,122,062,173,149,125 
12734 5062,240,019,024,173,147,087 
12740 5062,109,122,062,141,122,046 
12746 5062,173,148,062,109,123,111 
12752 5062,141,123,062,173,138,139 
12758 5062,208,001,096,076,063,208 
12764 5049,165,178,208,002,198,252 
12770 sl79,198,178,096,032,167,052 
12776 5056,169,057,133,251,169,043 
12782 5062,133,252,032,046,056,051 
12788 5032,133,056,096,032,204,029 
12794 s255,169,001,032,195,255,133 
12800 sl69,001,133,184,169,008,152 
12806 s133,186,169,003,133,185,047 
12812 5169,150,133,187,169,061,113 
12818 sl33,188,032,193,225,096,117 
12824 sl69,002,133,184,169,008,177 
12830 sl33,186,169,002,133,185,070 
12836 sl69,150,133,187,169,061,137 
12842 sl33,188,032,193,225,032,077 
12848 5204,255,096,169,004,133,141 
12854 sl84,169,004,133,186,169,131 
12860 5000,133,183,032,193,225,058 
12866 5032,204,255,096,032,204,121 
12872 s255,169,000,133,147,133,141 
12878 5144,169,008,133,186,169,119 
12884 sl50,133,187,169,061,133,149 
12890 sl88,032,117,225,032,204,120 
12896 s255,165,043,133,167,165,000 
12902 5044,133,168,096,160,000,191 


363 




Appendix B: LADS Object Code 


12908 :162,255,232,185,028,060,006 
12914 s205,068,061,240,010,200,130 
12920 :200,200,224,057,208,240,225 
12926 :076,232,043,200,185,028,122 
12932 s060,205,069,061,240,006,005 
12938 s200,200,208,224,240,238,168 
12944 :200,185,028,060,205,070,124 
12950 :061,240,005,200,208,210,050 
12956 :240,224,173,071,061,201,102 
12962 :032,240,004,201,000,208,079 
12968 : 213,189,196,060,141,114,057 
12974 :062,188,252,060,140,113,221 
12980 :062,076,201,043,162,001,213 
12986 :032,198,255,162,006,032,103 
12992 :228,255,202,208,250,032,087 
12998 :228,255,201,172,240,014,028 
13004 :169,181,133,251,169,061,144 
13010 s133,252,032,046,056,076,037 
13016 : 200,046,096,160,000,177,127 
13022 s251,240,004,200,076,221,190 
13028 s050,140,178,061,136,169,194 
13034 :000,141,122,062,141,123,055 
13040 s062,162,001,142,140,062,041 
13046 :177,251,041,015,141,176,023 
13052 :061,141,179,061,169,000,095 
13058 :141,177,061,141,180,061,251 
13064 : 202,240,018,032,045,051,084 
13070 :173,176,061,141,179,061,037 
13076 :173,177,061,141,180,061,045 
13082 :076,008,051,238,140,062,089 
13088 :174,140,062,032,084,051,063 
13094 :136,206,178,061,208,202,005 
13100 s096,024,014,176,061,046,205 
13106 :177,061,014,176,061,046,073 
13112 :177,061,024,173,179,061,219 
13118 :109,176,061,141,176,061,018 
13124 sl73,180,061,109,177,061,061 
13130 8141,177,061,014,176,061,192 
13136 8046,177,061,096,024,173,145 
13142 sl76,061,109,122,062,141,245 
13148 8122,062,173,177,061,109,028 
13154 8123,062,141,123,062,096,193 
13160 8032,254,047,160,000,140,225 
13166 8128,062,140,159,062,140,033 
13172 8150,062,140,149,062,173,084 
13178 sl54,062,208,012,032,228,050 
13184 s255,141,117,062,032,228,195 
13190 s255,141,118,062,032,228,202 
13196 s255,208,008,032,231,052,158 
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13202 s104, 
13208 : 032, 
13214 :032, 
13220 :231, 
13226 :076, 
13232 :115, 
13238 :062, 
13244 : 173, 
13250 :238, 
13256 :228, 
13262 s144, 
13268 :068, 
13274 :032, 
13280 :032, 
13286 s169, 
13292 :022, 
13298 s139, 
13304 : 255, 
13310 :172, 
13316 :032, 
13322 :200, 
13328 s 255, 
13334 :032, 
13340 :208, 
13346 :043, 
13352 :201, 
13358 :208, 
13364 :172, 
13370 s 201, 
13376 :240, 
13382 :032, 
13388 s 200, 
13394 :062, 
13400 s 068, 
13406 s 056, 
13412 :162, 
13418 :008, 
13424 :250, 
13430 :160, 
13436 :200, 
13442 :096, 
13448 : 076, 
13454 :150, 
13460 :158, 
13466 :011, 
13472 :032, 
13478 :173, 
13484 :000, 
13490 :240, 


104,076,140, 

240,239,076, 

228,255,208, 

052,201,058, 

080,052,201, 

140,139,062, 

240,085,141, 

139,062,240, 

051,076,022, 

255,240,014, 

003,032,094, 

061,200,076, 

142,056,032, 

155,056,032, 

000,141,139, 

052,141,159, 

062,160,000, 

208,007,153, 

139,062,096, 

022,055,153, 

076,246,051, 

240,003,076, 

231,052,173, 

005,104,104, 

096,201,177, 

179,240,095, 

003,238,149, 

208,003,076, 

046,240,022, 

021,201,127, 

094,052,153, 

076,158,051, 

096,076,139, 

061,200,076, 

233,127,141, 

255,206,131, 

232,189,158, 

048,243,232, 

048,007,153, 

076,115,052, 

169,002,141, 

158,051,169, 

062,076,158, 

051,173,138, 

169,042,032, 

155,056,032, 

128,062,208, 

185,068,061, 

004,200,076, 


043,201,046 

166,051,188 

003,076,192 

208,003,149 

059,208,078 

173,152,189 

159,062,163 

006,032,072 

052,032,153 

201,127,241 

052,153,172 

199,051,099 

063,056,087 

133,056,176 

062,076,049 

062,141,045 

032,228,095 

000,002,105 

016,003,230 

000,002,012 

032,228,075 

014,052,144 

139,062,199 

076,140,153 

240,091,114 

201,170,102 

062,201,139 

147,052,198 

201,036,036 

144,003,032 

068,061,018 

141,154,088 

053,153,149 

006,053,040 

131,062,076 

062,240,132 

160,016,101 

189,158,208 

068,061,103 

041,127,223 

150,062,238 

001,141,220 

051,032,159 

062,240,202 

210,255,105 

133,056,112 

032,160,161 

201,032,207 

173,052,155 
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13496 :200,132,251,169,068,024,004 
13502 s101,251,133,251,169,061,132 
13508 :105,000,133,252,032,219,169 
13514 :050,173,138,062,240,008,105 
13520 :173,151,062,240,003,032,101 
13526 ;213,054,173,122,062,133,203 
13532 :253,173,123,062,133,254,194 
13538 :104,104,076,140,043,153,078 
13544 :068,061,200,192,080,208,017 
13550 :248,153,068,061,032,228,004 
13556 :255,032,228,255,240,006,236 
13562 s169,000,141,154,062,096,104 
13568 :169,001,141,119,062,096,076 
13574 :162,000,032,228,255,240,155 
13580 :044,201,058,240,040,201,028 
13586 s032,240,243,201,059,240,009 
13592 8032,201,044,240,015,201,245 
13598 8041,240,011,157,129,061,157 
13604 s232,153,068,061,200,076,058 
13610 8008,053,142,129,062,153,077 
13616 8068,061,200,032,077,053,027 
13622 8076,158,051,141,139,062,169 
13628 sl69,000,142,129,062,153,203 
13634 8068,061,032,077,053,173,018 
13640 sl39,062,076,161,051,169,218 
13646 8000,141,122,062,141,123,155 
13652 8062,170,014,122,062,046,048 
13658 sl23,062,014,122,062,046,007 
13664 8123,062,014,122,062,046,013 
13670 8123,062,014,122,062,046,019 
13676 sl23,062,189,129,061,201,105 
13682 8065,144,002,233,007,041,094 
13688 8015,013,122,062,141,122,083 
13694 8062,232,236,129,062,208,031 
13700 s209,238,128,062,169,001,171 
13706 8096,192,000,240,014,174,086 
13712 sl38,062,208,009,072,152,017 
13718 8072,032,036,048,104,168,098 
13724 sl04,153,068,061,200,032,006 
13730 s228,255,153,068,061,200,103 
13736 s201,066,208,104,169,000,148 
13742 8141,144,062,173,138,062,126 
13748 8240,023,140,141,062,173,191 
13754 8156,062,240,015,032,142,065 
13760 8056,032,063,056,032,103,022 
13766 8056,032,063,056,172,141,206 
13772 8062,032,228,255,153,068,234 
13778 8061,200,201,032,208,245,133 
13784 8032,228,255,153,068,061,245 
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13790 :200,201,034,208,069,032,198 
13796 :228,255,208,003,076,186,160 
13802 s054,201,058,208,003,076,066 
13808 :189,054,201,059,208,012,195 
13814 :032,238,051,174,152,062,187 
13820 s142,159,062,076,186,054,163 
13826 :201,034,208,003,076,227,239 
13832 :053,174,138,062,208,009,140 
13838 :032,032,056,076,227,053,234 
13844 ;076,139,057,153,068,061,062 
13850 :170,140,141,062,032,248,051 
13856 :055,172,141,062,200,076,226 
13862 :227,053,162,000,142,145,255 
13868 :062,157,169,061,232,173,130 
13874 s145,062,208,117,032,228,074 
13880 s 255,240,067,201,058,240,093 
13886 :063,201,059,208,012,032,125 
13892 s238,051,174,152,062,142,119 
13898 ;159,062,076,126,054,141,180 
13904 :109,061,173,138,062,208,063 
13910 :013,173,109,061,201,032,163 
13916 :208,211,032,032,056,076,195 
13922 ;049,054,173,109,061,153,185 
13928 :068,061,200,201,032,240,138 
13934 :024,201,000,240,020,201,028 
13940 :058,240,016,157,169,061,049 
13946 s232,076,049,054,238,145,148 
13952 :062,141,110,061,076,079,145 
13958 :054,169,169,133,251,169,055 
13964 :061,133,252,140,141,062,161 
13970 :032,219,050,174,122,062,037 
13976 :032,248,055,172,141,062,094 
13982 ;169,000,162,005,157,169,052 
13988 :061,202,208,250,076,049,242 
13994 :054,173,138,062,208,003,040 
14000 :032,032,056,173,110,061,128 
14006 s201,058,240,003,032,231,179 
14012 :052,141,154,062,238,158,225 
14018 .-062,104,104, 173,138,062,069 
14024 s 240,008,173,156,062,240,055 
14030 :003,076,108,046,076,140,143 
14036 :043,173,138,062,201,002,063 
14042 :208,001,096,032,204,255,246 
14048 :162,002,032,201,255,056,164 
14054 s173,122,062,229,253,141,186 
14060 :120,062,173,123,062,229,237 
14066 :254,141,121,062,169,000,221 
14072 s032,210,255,173,120,062,076 
14078 :208,003,206,121,062,206,036 
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14084 :120,062,208,238,173,121,158 
14090 :062,208,233,032,204,255,236 
14096 s162,001,032,198,255,096,248 
14102 :056,233,127,141,131,062,004 
14108 :162,255,206,131,062,240,060 
14114 :008,232,189,158,160,016,029 
14120 :250,048,243,232,189,158,136 
14126 :160,048,007,153,000,002,160 
14132 s200,076,043,055,041,127,082 
14138 :096,160,000,162,000,185,149 
14144 :068,061,201,043,240,004,169 
14150 s200,076,063,055,200,185,081 
14156 :068,061,032,090,055,176,046 
14162 s018,157,129,061,232,076,243 
14168 .-074,055,201,058,176,006,146 
14174 s056,233,048,056,233,208,160 
14180 :096,169,000,157,129,061,200 
14186 s169,129,133,251,169,061,250 
14192 s133,252,032,219,050,173,203 
14198 :122,062,141,147,062,173,057 
14204 :123,062,141,148,062,096,244 
14210 sl73,138,062,208,004,032,235 
14216 5032,056,096,173,156,062,199 
14222 s240,017,032,204,255,162,028 
14228 5001,032,198,255,174,113,153 
14234 5062,032,072,056,032,063,215 
14240 5056,174,113,062,032,248,077 
14246 5055,096,173,138,062,208,130 
14252 5004,032,032,056,096,173,053 
14258 .-156,062,240,006,174,122,170 
14264 5062,032,072,056,174,122,190 
14270 5062,076,248,055,173,138,174 
14276 5062,208,007,032,032,056,081 
14282 5032,032,056,096,173,156,235 
14288 5062,240,006,174,122,062,106 
14294 5032,072,056,174,122,062,220 
14300 5032,248,055,173,156,062,178 
14306 s240,014,173,157,062,240,088 
14312 5003,032,063,056,174,123,171 
14318 5062,032,072,056,174,123,245 
14324 5062,076,248,055,142,121,180 
14330 5062,173,153,062,240,005,177 
14336 sl60,000,138,145,253,173,101 
14342 sl51,062,240,022,032,204,205 
14348 s255,162,002,032,201,255,151 
14354 sl73,121,062,032,210,255,103 
14360 5032,204,255,162,001,032,198 
14366 sl98,255,024,169,001,101,010 
14372 s253,133,253,169,000,101,177 


368 




Appendix B: LADS Object Code 


14378 :254,133,254,096,160,000,171 
14384 :177,251,240,010,032,210,200 
14390 s255,032,186,056,200,076,091 
14396 :048,056,096,169,032,032,237 
14402 : 210,255,032,186,056,096,133 
14408 :142,140,062,173,157,062,040 
14414 :240,011,138,032,114,057,158 
14420 :032,227,056,174,140,062,007 
14426 .-096,169,000,032,205,189,013 
14432 :032,227,056,174,140,062,019 
14438 :096,173,157,062,240,014,076 
14444 :165,254,032,114,057,165,127 
14450 :253,032,114,057,032,022,112 
14456 :057,096,166,253,165,254,087 
14462 :032,205,189,032,022,057,151 
14468 :096,169,013,032,210,255,139 
14474 :032,186,056,096,174,117,031 
14480 .-062,173,118,062,032,205,028 
14486 sl89,032,076,057,096,169,001 
14492 5068,133,251,169,061,133,203 
14498 s 2 52,032,046,056,096,169,045 
14504 5007,032,210,255,169,018,091 
14510 s032,210,255,032,155,056,146 
14516 sl69,013,032,210,255,096,187 
14522 sl74,138,062,208,001,096,097 
14528 sl74,152,062,208,001,096,117 
14534 sl41,139,062,032,204,255,007 
14540 sl62,004,032,201,255,173,007 
14546 sl39,062,032,210,255,032,172 
14552 s204,255,162,001,032,198,044 
14558 s255,173,139,062,096,174,097 
14564 5138,062,208,001,096,174,139 
14570 sl52,062,208,001,096,032,017 
14576 s204,255,162,004,032,201,074 
14582 s255,173,157,062,240,009,118 
14588 sl73,140,062,032,114,057,062 
14594 5076,013,057,169,000,174,235 
14600 sl40,062,032,205,189,032,156 
14606 s204,255,162,001,032,198,098 
14612 s255,096,174,138,062,208,185 
14618 5001,096,174,152,062,208,207 
14624 5001,096,032,204,255,162,014 
14630 5004,032,201,255,174,157,093 
14636 5062,240,013,165,254,032,042 
14642 sll4,057,165,253,032,114,017 
14648 s057,076,067,057,165,254,220 
14654 sl66,253,032,205,189,032,171 
14660 s 204,255,162,001,032,198,152 
14666 s255,096,174,138,062,208,239 
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14672 :001,096,174,152,062,208,005 
14678 :001,096,032,204,255,162,068 
14684 :004,032,201,255,173,118,107 
14690 :062,174,117,062,032,205,238 
14696 :189,032,204,255,162,001,179 
14702 :032,198,255,096,072,041,036 
14708 :015,168,185,052,061,170,255 
14714 :104,074,074,074,074,168,178 
14720 :185,052,061,032,210,255,155 
14726 ;138,032,210,255,096,201,042 
14732 :070,208,008,032,238,057,241 
14738 :104,104,076,140,043,201,046 
14744 :128,208,006,032,071,058,143 
14750 :076,146,057,201,068,208,146 
14756 :003,076,127,058,201,080,197 
14762 s208,003,076,244,058,201,192 
14768 s078,208,003,076,053,059,141 
14774 s201,079,208,003,076,032,013 
14780 :059,201,083,208,003,076,050 
14786 :237,059,201,072,208,003,206 
14792 :076,007,060,153,068,061,113 
14798 :032,142,056,032,063,056,075 
14804 8032,103,056,032,167,056,146 
14810 8032,155,056,169,087,133,082 
14816 8251,169,062,133,252,032,099 
14822 8046,056,032,133,056,076,117 
14828 8007,059,032,228,255,201,250 
14834 8032,240,003,076,238,057,120 
14840 sl60,000,032,228,255,201,100 
14846 8000,240,014,201,127,144,212 
14852 8003,032,094,052,153,068,150 
14858 8061,200,076,250,057,132,018 
14864 sl83,160,000,185,068,061,161 
14870 s240,007,153,150,061,200,065 
14876 8076,019,058,173,138,062,042 
14882 8208,006,032,103,056,032,215 
14888 8063,056,032,155,056,032,178 
14894 8133,056,032,248,049,162,214 
14900 8001,032,198,255,032,228,030 
14906 8255,032,228,255,032,231,067 
14912 8052,162,000,142,119,062,089 
14918 8096,169,046,032,210,255,110 
14924 8169,069,032,210,255,169,212 
14930 8078,032,210,255,169,068,126 
14936 8032,210,255,169,032,032,050 
14942 s210,255,032,228,255,032,082 
14948 s248,057,173,138,062,240,250 
14954 8003,238,119,062,238,138,136 
14960 8062,173,115,062,133,253,142 
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14966 :173,116,062,133,254,032,120 
14972 :104,051,096,173,138,062,236 
14978 :240,030,032,228,255,153,044 
14984 :068,061,160,000,032,228,173 
14990 :255,240,020,201,127,144,105 
14996 :003,032,094,052,153,068,038 
15002 :061,153,150,061,200,076,087 
15008 sl40,058,076,007,059,169,157 
15014 5044,153,150,061,200,169,175 
15020 5080,153,150,061,200,169,217 
15026 5044,153,150,061,200,169,187 
15032 5087,153,150,061,200,132,199 
15038 s183,032,155,056,032,133,013 
15044 5056,238,151,062,032,024,247 
15050 5050,162,002,032,201,255,136 
15056 s173,115,062,032,210,255,031 
15062 sl73,116,062,032,210,255,038 
15068 5032,204,255,162,001,032,138 
15074 s198,255,032,205,059,032,239 
15080 s231,052,104,104,162,000,117 
15086 sl42,119,062,076,140,043,052 
15092 sl73,138,062,240,014,032,135 
15098 5051,050,238,152,062,032,067 
15104 s204,255,162,001,032,198,084 
15110 s255,032,228,255,240,007,255 
15116 s201,058,240,006,076,007,088 
15122 5059,032,231,052,104,104,088 
15128 sl62,000,142,119,062,076,073 
15134 sl40,043,169,046,032,210,158 
15140 s255,169,079,032,210,255,012 
15146 5032,133,056,169,001,141,062 
15152 sl53,062,076,007,059,173,066 
15158 sl38,062,240,205,032,228,191 
15164 s255,201,080,240,012,201,025 
15170 5079,240,058,201,083,240,199 
15176 5106,201,072,240,076,169,168 
15182 5046,032,210,255,169,078,100 
15188 5032,210,255,169,080,032,094 
15194 s210,255,032,133,056,206,214 
15200 s152,062,032,204,255,162,195 
15206 5004,032,201,255,169,013,008 
15212 5032,210,255,169,004,032,042 
15218 s195,255,032,204,255,162,193 
15224 5001,032,198,255,076,007,177 
15230 5059,169,046,032,210,255,129 
15236 sl69,078,032,210,255,169,021 
15242 5079,032,210,255,032,133,111 
15248 5056,169,000,141,153,062,213 
15254 5076,007,059,169,046,032,027 
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15260 :210,255,169,078,032,210,086 
15266 :255,169,072,032,210,255,131 
15272 :032,133,056,169,000,141,187 
15278 :157,062,076,007,059,169,192 
15284 5046,032,210,255,169,078,202 
15290 5032,210,255,169,083,032,199 
15296 5210,255,032,133,056,169,023 
15302 5000,141,156,062,076,007,128 
15308 5059,166,144,208,001,096,110 
15314 sl69,000,032,072,056,032,059 
15320 5063,056,169,021,133,251,141 
15326 sl69,062,133,252,032,167,013 
15332 5056,032,046,056,104,104,114 
15338 5076,200,046,169,046,032,035 
15344 s210,255,169,083,032,210,175 
15350 s255,032,133,056,173,138,009 
15356 5062,240,005,169,001,141,102 
15362 sl56,062,076,007,059,169,019 
15368 5046,032,210,255,169,072,024 
15374 5032,210,255,032,133,056,220 
15380 sl69,001,141,157,062,076,114 
15386 5007,059,076,068,065,076,121 
15392 5068,089,074,083,082,082,254 
15398 5084,083,066,067,083,066,231 
15404 5069,081,066,067,067,067,205 
15410 5077,080,066,078,069,076,240 
15416 5068,088,074,077,080,083,014 
15422 5084,065,083,084,089,083,038 
15428 5084,088,073,078,089,068,036 
15434 5069,089,068,069,088,068,013 
15440 s069,067,073,078,088,073,016 
15446 5078,067,067,080,089,067,022 
15452 s 080,088,083,066,067,083,047 
15458 5069,067,065,068,067,067,245 
15464 5076,067,084,065,088,084,056 
15470 5065,089,084,088,065,084,073 
15476 5089,065,080,072,065,080,055 
15482 s 076,065,066,082,075,066,040 
15488 5077,073,066,080,076,065,053 
15494 5078,068,079,082,065,069,063 
15500 5079,082,066,073,084,066,078 
15506 5086,067,066,086,083,082,104 
15512 5079,076,082,079,082,076,114 
15518 5083,082,067,076,068,067,089 
15524 5076,073,065,083,076,080,105 
15530 5072,080,080,076,080,082,128 
15536 5084,073,083,069,068,083,124 
15542 5069,073,084,083,088,084,151 
15548 5088,083,067,076,086,078,154 
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15554 s079,080,001,005,009,000,112 
15560 s008,008,008,001,008,005,238 
15566 :006,001,002,002,000,000,217 
15572 :000,002,000,002,004,004,224 
15578 s001,000,001,000,000,000,220 
15584 :000,000,000,000,000,008,232 
15590 :008,001,001,001,007,008,000 
15596 :008,003,003,003,000,000,253 
15602 .-003,000,000,000,000,000,245 
15608 :000,000,000,000,161,160,057 
15614 :032,096,176,240,144,193,111 
15620 :208,162,076,129,132,134,077 
15626 s200,136,202,198,232,230,184 
15632 :192,224,225,056,097,024,066 
15638 :170,168,138,152,072,104,058 
15644 :000,048,016,033,001,065,191 
15650 :036,080,112,034,098,066,204 
15656 :216,088,002,008,040,064,202 
15662 s248,120,186,154,184,234,148 
15668 s 048,049,050,051,052,053,099 
15674 :054,055,056,057,065,066,155 
15680 :067,068,069,070,000,000,082 
15686 :000,000,000,000,000,000,070 
15692 5000,000,000,000,000,000,076 
15698 5000,000,000,000,000,000,082 
15704 s 000,000,000,000,000,000,088 
15710 5000,000,000,000,000,000,094 
15716 s 000,000,000,000,000,000,100 
15722 5000,000,000,000,000,000,106 
15728 5000,000,000,000,000,000,112 
15734 5000,000,000,000,000,000,118 
15740 s 000,000,000,000,000,000,124 
15746 s 000,000,000,000,000,000,130 
15752 s 000,000,000,000,000,000,136 
15758 5000,000,000,000,000,000,142 
15764 5000,000,000,000,000,000,148 
15770 5000,000,000,000,000,000,154 
15776 5000,000,000,000,000,000,160 
15782 s 000,000,000,000,000,000,166 
15788 5000,000,000,000,000,000,172 
15794 5000,000,000,078,079,032,111 
15800 s083,084,065,082,084,032,102 
15806 5065,068,068,082,069,083,113 
15812 s083,000,045,045,045,045,203 
15818 s045,045,045,045,045,045,216 
15824 s045,045,045,045,045,045,222 
15830 s045,045,045,045,032,066,236 
15836 5082,065,078,067,072,032,104 
15842 5079,085,084,032,079,070,143 
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15848 s032,082,065,078,071,069,117 
15854 :000,085,078,068,069,070,096 
15860 5073,078,069,068,032,076,128 
15866 5065,066,069,076,000,029,043 
15872 5029,029,029,029,029,029,174 
15878 5029,029,032,078,065,075,058 
15884 5069,068,032,076,065,066,132 
15890 5069,076,000,029,029,029,250 
15896 5029,029,032,060,060,060,038 
15902 5060,060,060,060,060,032,106 
15908 5068,073,083,075,032,069,180 
15914 5082,082,079,082,032,062,205 
15920 5062,062,062,062,062,062,164 
15926 5062,032,000,029,029,029,235 
15932 5029,029,032,045,045,032,016 
15938 5068,085,080,076,073,067,003 
15944 5065,084,069,068,032,076,210 
15950 5065,066,069,076,032,045,175 
15956 5045,032,000,029,029,029,248 
15962 5029,029,032,045,045,032,046 
15968 5083,089,078,084,065,088,071 
15974 5032,069,082,082,079,082,016 
15980 s032,045,045,032,000,000,006 

Program B-2. VIC Adjustments to Prog. B-l 

To create the VIC-20 version of LADS, change the following lines in 
Program B-l: 

11030 5141,157,062,185,000,016,071 
11054 5061,200,185,000,016,201,197 
12014 s255,076,116,196,185,089,131 
12272 5152,032,205,221,173,139,138 
12818 5133,188,032,190,225,096,114 
12842 sl33,188,032,190,225,032,074 
12860 5000,133,183,032,190,225,055 
12890 5188,032,114,225,032,204,117 
13418 5008,232,189,158,192,016,133 
13430 5192,048,007,153,068,061,135 
14114 5008,232,189,158,192,016,061 
14126 sl92,048,007,153,000,002,192 
14426 5096,169,000,032,205,221,045 
14462 5032,205,221,032,022,057,183 
14486 5221,032,076,057,096,169,033 
14600 5140,062,032,205,221,032,188 
14654 s166,253,032,205,221,032,203 
14696 s221,032,204,255,162,001,211 
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Program B-3a. PET/CBM 4.0 BASIC Adjustments 
to Prog. B-l 

To create the 4.0 BASIC version of LADS, type in Program B-l then 
change the following bytes: 


Address 

Byte 

2B05 

BB 

2B07 

34 

2B0E 

BC 

2B10 

35 

2B1B 

80 

2B32 

80 

2B39 

D1 

2E07 

C6 

2E30 

C6 

2E40 

C6 

2E47 

C6 

2EC0 

E2 

2EC1 

F2 

2ECE 

E2 

2ECF 

F2 

2ED3 

E2 

2ED4 

F2 

2EED 

E2 

2EEE 

F2 

2EF0 

FF 

2EF1 

B3 

2FF2 

83 

2FF3 

CF 

3037 

BB 

303C 

BB 

303E 

BC 

3042 

BC 

304B 

BB 

3055 

BB 

3065 

BB 

306A 

BB 

30C3 

BB 

30C9 

BB 

30D3 

BD 

30D8 

BE 

30E3 

BB 

30E5 

BD 

30E7 

BC 

30E9 

BE 

30F0 

BD 


Address 

Byte 

30F4 

BD 

30F6 

BE 

30FA 

BE 

30FE 

BD 

3012 

BD 

3106 

BE 

3108 

BD 

310E 

BD 

3113 

BE 

3118 

BD 

313C 

BD 

3143 

BD 

3148 

BE 

31A3 

BD 

31A9 

BD 

31DE 

BD 

31E2 

BE 

31E4 

BD 

31FE 

E2 

31FF 

F2 

3203 

D2 

3207 

D4 

320B 

D3 

320F 

DA 

3213 

DB 

3215 

63 

3216 

F5 

321B 

D2 

321F 

D4 

3223 

D3 

3227 

DA 

322B 

DB 

322D 

63 

322E 

F5 

3236 

D2 

323A 

D4 

323E 

D1 

3240 

63 

3241 

F5 

324C 

9D 


Address Byte 

324E 96 

3252 D4 

3256 DA 

325A DB 

325C 56 

325D F3 

3262 28 

3264 BF 

3266 29 

3268 CO 

346D B2 

346E BO 

3475 B2 

3476 BO 

3496 A9 

3497 18 

3498 20 

3499 D2 

349A FF 

3725 B2 

3726 BO 

372D B2 

372E BO 

385E 83 

385F CF 

387F 83 

3800 CF 

3895 83 

3896 CF 

390B 83 

390C CF 

3941 83 

3942 CF 

3967 83 

3968 CF 

3A10 D1 

3ABE D1 

3B72 E2 

3B73 F2 

3BCE 96 
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Program B-3b. PET/CBM Upgrade BASIC Adjust¬ 
ments to Prog. B-l 

To create the Upgrade BASIC version of LADS, type in Program B-l 
then change the following bytes in addition to the changes shown in 
B-3a above: 


Address 

Byte 

Address 

Byte 

Address 

Byte 

2EC0 

AE 

325C 

22 

387F 

D9 

2ECE 

AE 

346D 

92 

3880 

DC 

2ED3 

AE 

346E 

CO 

3895 

D9 

2EED 

AE 

3475 

92 

3896 

DC 

2EF0 

89 

3476 

CO 

390B 

D9 

2EF1 

C3 

3725 

92 

390C 

DC 

2FF2 

D9 

3726 

CO 

3941 

D9 

2FF3 

DC 

372D 

92 

3942 

DC 

31FE 

AE 

372E 

CO 

3967 

D9 

3215 

24 

385E 

D9 

3968 

DC 

322D 

24 

385F 

DC 

3B72 

AE 

3240 

24 






Program B-4. Atari LADS: MLX Format 


32768 : 076 , 203,146 
32774 : 082 , 160,048 
32780 : 136 , 208,250 
32786 : 138 , 141,205 
32792 : 133 , 139.141 
32798 : 001 , 141,227 
32804 : 145 , 165,162 
32810 : 000 , 174,062 
32816 : 000 , 005,201 
32822 : 153 , 226,153 
32828 : 047 , 128,132 
32834 : 135 , 032,005 
32840 : 141 , 189,154 
32846 : 173 , 208,154 
32852 : 121 , 141,169 
32858 : 145 , 169,076 
32864 : 169 , 065,032 
32870 : 068 , 032,036 
32876 : 032 , 036,145 
32882 : 173 , 198,154 
32888 : 144 , 133,134 
32894 : 135 , 032,043 
32900 : 154 , 133,136 
32906 : 173 , 193,154 
32912 : 186 , 154,032 


169 , 000 , 133,215 
153 . 183 , 154,018 
169 , 000 , 133,140 
154 , 169 , 128,185 
206 , 154 . 169,198 
154 , 032 , 014,087 
208 , 026 , 160,134 
146 , 232 , 189,077 
155 , 240 , 008,145 
200 , 232 , 076,070 
128 , 032 , 013,028 
136 . 169 , 000,031 
032 , 190 , 136,146 
208 , 063 , 032,148 
160 , 032 , 036,231 
032 , 036 , 145,181 
036 , 145 , 169,200 
145 , 169 , 083,123 
032 , 121 , 141,103 
208 , 011 , 169,003 
169 , 153 , 133,218 
136 , 173 , 192,069 
141 , 185 , 154,011 
133 , 137 , 14 1,045 
175 , 145 , 173,241 
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32918:189,154,240 
32924:131,032,190 
32930:141,197,154 
32936:172,208,154 
32942:204,128,140 
32948:226,154,240 
32954:141,032,051 
32960:141,032,051 
32966:154,240,003 
32972:076,183,135 
32978:240,023,201 
32984:169,001,141 
32990:147,153,208 
32996:024,109,183 
33002:154,076,191 
33008:154,240,057 
33014:185,144,153 
33020:226,153,201 
33026:200,185,144 
33032:208,003,076 
33038:000,142,228 
33044:226,153,185 
33050:008,157,144 
33056:076,022,129 
33062:076,204,128 
33068:032,066,133 
33074:173,165,153 
33080:006,173,166 
33086:154,073,128 
33092:032,228,133 
33098:160,000,140 
33104:147,153,201 
33110:076.104,132 
33116:201,065,144 
33122:154,153,165 
33128:148,153,240 
33134:153,201,065 
33140:197,154,200 
33146:240,006,153 
33152:118.129,136 
33158:173,198.154 
33164:197,154,208 
33170:133,134,169 
33176:160,000,173 
33182:048,176,007 
33188:144,002,230 
33194:240,016,201 
33200:201,044,240 
33206:240,004,200 


,003,076,174,218 
, 136, 169,000,046 
,141,207,154,132 
,208,003,076,221 
,228,154,173,177 
,012,032,130,206 
,141,032,091,162 
,141,173,219,181 
,032,047,140,046 
,173,184,154,085 
,003,208,114,231 
,184,154,173,014 
, 104,169,008,243 
, 154, 141,183,254 
,130,173,208,142 
, 160i255.200,026 
,240,046,153,143 
,032,208,243,035 
,153,201,061,178 
, 239, 130, 162,058 
, 154, 138, 153,06 1 
, 144, 153,24 0,097 
,153,232,200,152 
,157,144,153,201 
, 032, 160, 133,003 
,076,204,128,171 
, 201,064,176,214 
,153,238,207,231 
,141,190,154,134 
,076,203,129,101 
, 197 , 154, 173 j 130 
, 032,240,003,088 
. 185, 148, 153, 116 
,003.238,197,172 
,153,200,185,084 
,022,153,165,217 
,144,003,238,146 
, 185, 148, 153, 129 
, 165, 153,076, 147 
, 140, 196, 154,233 
, 208,064, 173,080 
, 162, 169, 165, 171 
, 153, 133, 135,235 
, 165. 153,201,236 
, 024,230, 134,009 
, 135, 177, 134,218 
, 041.240,012, 152 
, 008,201,032, 134 
, 076, 168, 129,231 
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X33212:072,152, 
33218:134,032, 
33224:104,145, 
33230:201,035, 
33236:240,023, 
33242:008,240, 
33248:113,169, 
33254:154,141, 
33260:130,172, 
33266:153,201, 
33272:184,154, 
33278:169,016, 
33284:141,183, 
33290:201,006, 
33296:130,076, 
33302:154,208, 
33308:056,173, 
33314:072,173, 
33320:176,014, 
33326:104,076, 
33332:012,076, 
33338:104,076, 
33344:003,076, 
33350:002, 141 , 
33356:141,193, 
33362:172,196, 
33368:153,201, 
33374:076,019, 
33380:201,076, 
33386:130,173, 
33392:173.184, 
33398:013,201, 
33404:004.024. 
33410:183,154, 
33416:156.140, 
33422:196,154, 
33428:041,208, 
33434:183,154, 
33440:166,153, 
33446:173,167. 
33452:173,184, 
33458:209,169, 
33464:154,141, 
33470:130,032, 
33476:130,173, 
33482:240,004, 
33488:173,183, 
33494:141,183, 
33500:201,006, 


072, 169,000, 145, 
043,136,104,168, 

134.173.165.153, 
240,063,201,040, 

173.184.154.201, 
055,201,003,208, 
008,024,109,183, 
183,154,076,191, 
196, 154, 185, 165, 
041,240,016,173, 
201,001,208,009, 
024,109,183,154, 

154.173.184.154, 
240,083,076,132, 
159,130,173,208, 
003,076,132,130, 

192.154.229.136, 

193.154.229.137, 
201,255,240,004, 
040", 133, 104,016, 
068,130,240,004, 
040,133,104,016, 
040,133,056,233, 
192,154,169,000, 
154,076,132,130, 
154,136,185,165i 
044,208,004.200, 

132.173.183.154, 
208,003,076,141, 
193,154,208,085, 
154,201,006,176, 
002,240,009,169, 
109,183,154,141, 
032,118,140,032, 
076,239,130,172, 

185.165.153.201, 
005. 169, 108, 141 . 
076,233.130.173, 
201,034,208,006, 

153.141.192.154, 
154,201,001,208, 
008,024,109,183, 
183,154,076,132, 
118,140,076,239, 
184,154,201,002, 
201,007,208,012, 
154,024,105,008, 
154,076,233,130, 
176,009,173,183, 


030 
043 
050 
218 
163 
1 65 
062 

105 
214 
042 

237 
141 
225 
236 
124 
213 
200 
224 
162 
007 
070 
019 
093 
216 
134 
066 
130 
063 
037 
025 

238 
240 
227 
021 
025 
172 
052 
079 
160 
122 
069 
1 12 
000 
157 
016 

106 
087 
107 
200 
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? 33506:154, 
33512:154, 
33518:140, 
33524:076, 
33530:208, 
33536:228, 
33542:154, 
33548:229, 
33554:014, 
33560:145, 
33566:160. 
33572:032, 
33578:250, 
33584:032, 
33590:085, 
33596:153. 
33602:169, 
33608:210, 
33614:173, 
33620:014, 
33626:145, 
33632:048. 
33638:145, 
33644:145, 
33650:032. 
33656:240, 
33662:169, 
33668:062, 
33674: 14 1 , 
33680:032, 
33686:036, 
33692:169, 
33698:141, 
33704:154, 
33710:173, 
33716:208, 
33722:154. 
33728:173, 
33734:186. 
33740:145. 
33746:165. 
33752:135, 
33758:145, 
33764:162, 
33770:000, 
33776:145, 
33782:173, 
33788:014, 
33794:145, 


024,105,012, 
032,118,140, 

173.208.154, 

171.131.173, 
003,076,171, 
154,208,062, 
240,042,169, 
085,141,209, 
145,162,004, 

172.209.154, 
002,076,037, 
032,036,145, 
032,014,145, 
008,145,169, 

169.226.133, 
133,135,032, 
030,056.229, 
154,169,030, 
222,154,240, 
145,162,004, 

172.210.154, 
008,169,032, 
136,208,250, 
162,001,032, 

143.141.173, 
017,201,001, 
060,076,133, 
032,036,145. 

173.229.154, 
051,141,169, 
145,169,000, 
005,133,135, 
032,121,141, 
208,003,076, 
208,154,208, 

154.165.136, 
165,137,141, 

185.154.133, 

154.133.137, 
169,001,032, 
162,208.003, 
076,067,128, 
169,001.032, 
002,032.011, 
032,036,145, 
169,002,032, 
222,154,240, 
145,162,004, 
169,013,032, 


141,183,077 
032, 182, 122 
208,003,100 
226,154,151 
131,173,244 
173,222,023 
020,056,175 
154,032,094 
032,011,130 
016,005,213 
131,169,093 
136,208,113 
162,001,134 
020, 133,043 
134,169,202 
034,141,176 
085,141,008 
133,085,085 
031,032,162 
032,011,196 
240,010,253 
032,036,165 
032,014.119 
008,145,089 
220,154,209 
208,005,024 
131,169,096 
032,175,102 
240,019,070 
059,032,116 
133.134,255 
032,034,152 
173,189,191 
146,128,115 
041,238,172 
141,230,190 
231,154,144 
136,173,122 
032,014,086 
025,145,209 
032.013,025 
032,014,156 
025,145.227 
145,169,237 
032,014,237 
025,145,246 
021,032,064 
032,011,108 
036,145,030 
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33800:032,014,145, 
33806:025,145.076, 
33812:165,153,201, 
33818:136,136,185, 
33824:041,208,003, 
33830:173,193,154, 
33836:184,154,201, 
33842:201,005,240, 
33848:240,119,173, 
33854:001,208,012, 
33860:024,105,024, 
33866:076,233,130, 
33872:201.005,240, 
33878:032,248,132, 
33884:173,183,154. 
33890:141,183,154, 
33896:032,155,141, 
33902:169,157,133, 
33908:133,135,032, 
33914:239,130,173, 
33920:068,173,184, 
33926:208,012,169. 
33932:183,154,141, 
33938:132,130,201, 
33944:201.003,240, 
33950:240,008,169, 
33956:132,076,104, 
33962:024,109,183, 
33968:154,185,167, 
33974:208,010,173, 
33980:182,240,003, 
33986:076,132,130, 
33992:201.002,208, 
33998:024,109,183, 
34004:154,076,233, 
34010:240,0 16^ 201, 
34016:201,005,240, 
34022:032,248,132, 
34028: 169,028,024, 
34034:141,183,154, 
34040:141,209,154, 
34046:142,210,154, 
34052:036,145,104, 
34058:152,072,138, 
34064:207,145,173. 
34070:211,154,174, 
34076:160,000,152, 
34082:200,192,080, 
34088:032,121,141, 


169,004,032,148 
182,145,185,004 
088,240,098,197 
165,153,201,234 
076,237,129,214 
208,015,173,186 
002,240,079,136 
075,201,001,005 
184,154,201,103 
173,183,154,025 
141,183,154,187 
173,184,154,000 
008,169,049,240 
076,104,132,042 
024.105,028,247 
076.233,130,247 
032.130,141.223 
134,169,154,002 
034,141,076,155 
193,154,208i195 
154,201,002,142 
016,024,109,160 
183,154,076,007 
001,240,016,098 
012,201,005,046 
050,032.248,137 
132,169,020,029 
154,141,183,196 
153,201,089,101 
183,154,201,087 
076,104,132,157 
173,184,154,019 
012,169,024,048 

154.141.183.232 
130,201,001,239 
003,240,012,162 
008,169,051,130 
076,104,132,186 
109,183,154,135 
076,233,130,135 

140.211.154.233 
169,160.032,097 
170,104,168,219 
072,152,032,116 
209,154,172,052 
210,154,096,253 
153.144.153,022 
208.248,096,034 
032,155.141,150 
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X 34094:032 
34100:134 
34106:034 
34112:132 
34118:144 
34124:208 
34130:154 
34136:154 
34142:000 
34148:144 
34154:200 
34160:240 
34166:133 
34172:061 
34178:145 
34184:138 
34190:000 
34196:153 
34202:143 
34208:032 
34214:134 
34220:034 
34226:140 
34232:208 
34238:191 
34244:191 
34250:105 
34256:136 
34262:154 
34268:200 
34274:239 
34280:140 
34286:032 
34292:055 
34298:140 
34304:099 
34310:233 
34316:233 
34322:177 
34328:208 
34334:232 
34340:141 
34346:213 
34352:154 
34358:232 
34364:173 
34370:032 
34376:153 
34382:079 


130.141.169, 

169.154.133, 
141,032,121, 
130,160,255, 
153,240,086, 

246.200.200, 
056,165,138, 

133.138.165, 
133,139,160, 
153.073,128, 

185.144.153, 
005,145,138, 

200.185.144, 
240.050,136, 

138.200.165, 

174.202.154, 

189.144.153, 
144,153,232, 

133.153.144, 

155.141.169, 

169.154.133, 
141,076,223, 
203,154,173, 
023,200,200, 

154.169.144, 

154.133.134, 
000,133,135, 

172.203.154, 
145, 138, 173 j 
145,138,104, 
130,173,205, 

173.206.154, 

242.134.169, 
146,056,165, 
165,139,229, 
162,000,056, 
002,133,140, 
000.133,141, 
140,048.012, 
002,198,141, 
076,018,134, 

212.154.165, 

154.177.140, 
240,003,076, 

142.191.154, 
207,154,240, 

242.134.200, 
240,083,201, 

232.209.140, 


018,133,157 
135,032,041 
141,076,091 
200,185,102 
201,032,158 
140,202,248 
237,202,010 
139,233,026 
000,185,199 
145,138,113 
201,032,253 
076,106,054 

153.201.110 
165,136,144 
137, 145,036 

202.160.142 
240,008,108 
200,076,082 
153,096,208 
070,133,092 
135,032,155 

133.136.147 
198,154,176 
200,140,131 
024,109,213 
169,153,106 
032,043,138 
173,192,214 

193.154.147 
104,076,219 
154,133,236 
133,141,155 
255,141,187 
138,229,009 
141,176,216 

165.140.110 
165,141,052 
160,000,167 
165,140’188 

198.140.143 
165,140,027 
141 , 141,222 
205,190,097 
084,134,227 
162,001,168 
004,200,014 
185,165,000 
048,144,173 
240,241,195 


381 









Appendix B: LADS Object Code 


34388:173.212,154, 
34394:213,154,133, 
34400:134,076,246, 
34406:146,048,001, 
34412:154,208,002, 
34418:155,141,032, 
34424:051,141.169, 
34430:169,154,133, 
34436:141,032,121, 
34442:173,183,154, 
34448:016,240,008, 
34454:208,003,076, 
34460:132,130,236, 
34466:003,076,084, 
34472:146,240,003, 
34478:172,191,154, 
34484:240.001,200, 
34490:192,154,200, 
34496:193,154,173, 
34502:010,201,002, 
34508:193,154.141, 
34514:219,154,240, 
34520:217,154,109, 
34526:192,154,173, 
34532:193.154.141. 
34538:208,154,240, 
34544:084.134,165, 
34550:198,141,198, 
34556:155,141,169, 
34562:169,154,133, 
34568:141,032,121, 
34574:014,145,169, 
34580:145,169,001, 
34586:004,133,133, 
34592:132,169,226, 
34598:153,133,130. 
34604:165,001,048, 
34610:240,011,032, 
34616:000,133,160, 
34622:161,096,032, 
34628:182,145,169, 
34634:169,008,133, 
34640:133,132,169, 
34646:169,153,133, 
34652:032,025,145, 
34658:221,032,218, 
34664:032,011,145, 
34670:036,145,032, 
34676:185,154,032, 


133, 140, 173,045 
141,032,242,237 
133,173,055,145 
096,173,208,006 
240,023,032,255 
130,141,032,233 
054, 133', 134,034 
135,032,034,015 
141,104,104,007 
041,031,201,153 
173,220,154,137 
233,130,076,108 
191,154,240,215 
134,238,055,240 
032,251,134,206 
173,207,154,201 
177,140,141,055 
177,140,141,166 
220,154,240,046 
208,030,173,054 
192,154,173,187 
019,024,173,015 
192,154,141,159 
218,154,109,198 
193,154,173,212 
001,096,076,241 
140,208,002,205 
140,096,032,027 
127,133,134,087 
135,032,034,147 
141,096,032,059 
001.032,025,144 
133,131,169,000 
169,000,133.086 
133,129,169,222 
032,218,144,080 
016,165,162,089 
003,152,169,145 
169,032,133,171 
115,150,076,180 
002,133,131,062 
133,169,000,174 
226,133,129,234 
130,169.002,074 
165,001,048,252 
144,162,002,109 
169,255,032,236 
036,145,173,165 
036,145,173,073 
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34682:186,154,032 
34688:230,154,032 
34694:231,154,032 
34700:014,145,096 
34706:131,032,025 
34712:133,133,169 
34718:169,002,133 
34724:133,129,169 
34730:032,218,144 
34736:143,032,014 
34742:058,160,000 
34748:185,104,152 
34754:240,010,200 
34760:057,208,240 
34766:200,185,104 
34772:153,240,006 
34778:224,240,238 
34784:152,205,146 
34790:200,208,210 
34796:147,153,201 
34802:201,000,208 
34808:153,141,184 
34814;153,140,183 
34820: 12B, 169,000 
34826:032,133,161 
34832:008,145,032 
34838:085,145,201 
34844:169,001,133 
34850:133,135,032 
34856:220,131,096 
34862:134,201,048 
34868:058,176,004 
34874:136,140,254 
34880:000,141,192 
34886:154,162,001 
34892:177,134,041 
34898:153,141,255 
34904:141,253,153 
34910:202,240,018 
34916:173.252.153 
34922:173.253,153 
34928:076.094,136 
34934:174,210,154 
34940:136,206,254 
34946:096,024,014 
34952:253,153,014 
34958:253,153,024 
34964:109,252,153 
34970:173,000,154 


036,145,173,080 
036,145,173,130 
036,145,032,252 
,169,004,133,189 
, 145, 169,008, 144 
, 000, 133, 132,084 
, 128, 169, 181,172 
,135,133,130,225 
, 165, 001,048,010 
.145,096,080,174 
,162,255.232,025 
, 205, 144,153, 107 
, 200,200,224,244 
, 076,238, 128, 123 
,152,205.145,173 
, 200,200,208, 195 
, 200, 185, 104, 129 
, 153,240,005, 101 
, 240,224!, 173. 205 
, 032,240,004,245 
,213, 189,016,045 
, 154, 188,072, 1 16 
,154,076,207,143 
, 133, 160, 169,251 
,162,001,032,019 
,241,1 45!, 032, 107 
, 042,240,014,237 
, 134, 169, 154,020 
, 034, 141,076,073 
,160,000,177,056 
144,008,201,014 
200,076,045,099 
153, 136, 169,022 
154,141,193,117 
142,210,154,125 
015,141,252,068 
153,169,000,185 
141,000,154,162 
032.131,136,085 
141,255,153,203 
141,000, 154,212 
238,210, 154,252 
032, 170, 136,226 
153,208.202,003 
252, 153,046,203 
252. 153.046,239 
173,255,153,129 
141,252,153,184 
109,253.153,228 
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34976:141,253,153. 
34982:046.253.153. 
34988:252,153,109. 
34994:192,154,173. 
35000:193,154.141. 
35006:032.028,133, 
35012:198,154,140, 
35018:220,154,140, 
35024:224,154,208, 
35030:145,032,085. 
35036:032,253,137, 
35042:146,128,201. 
35048:076,243,136, 
35054:208,003,076, 
35060:058,208,003, 
35066:201,059,208, 
35072:154,173,222, 
35078:141,229,154 
35084:240,006,032, 
35090:088,137,032 
35096:007,153,144, 
35102:020,137,032, 
35108:051,141,032, 
35114:121,141,169 
35120:154,076,088 
35126: 154, 141,209, 
35132:032,085,145, 
35138:000,005,172, 
35144:234,153,000, 
35150:060,137,032, 
35156:003,076,080. 
35162:137,173,209, 
35168:104,104,076, 
35174:201,062,240, 
35180:240,051,201, 
35186:238.219,154, 
35192:003,076,169, 
35198:240,015.201. 
35204:153,144,153, 
35210: 136, 141,224, 
35216:164,138,153, 
35222:076,031,138, 
35228:220,154,076, 
35234:001,141.220. 
35240:136.032,235, 
35246:154,240,011, 
35252:036,145,032, 
35258:121.141.173, 
35264:032,160.000, 


014,252,153,102 
096,024,173,143 
192,154,141,149 
253,153,109,188 
193,154,096,091 
160,000,140,171 
229.154.140,187 
219,154,173,238 
003,032,241,046 
145,208,008,069 
104,104,076,158 
032,240,239,188 
032,085,145,181 
253,137,201,092 
076,139.137,097 
104,140,209,147 
154,240,074,249 
173,209,154,042 
052,137,076,043 
085,145,240,233 
153,200,076,245 
130,141,032,010 
143,141,032,064 
000,141,209,055 
137, 141,229, 105 
154,160,000,104 
208’, 007, 153, 178 
209,154,096,190 
005,200,076,228 
085,145,240,009 
137.032,253,153 
154,208,005,208 
146,128,096,238 
047,201,060,145 
043,208.003,086 
201,042,208.152 
137,201,046,240 
036,240,014,104 
200,076,235,069 
154,096,076,197 
144,153,200,072 
169,002,141,195 
235,136,169,122 
154,076,235,221 
136,173,208,064 
169,042,032,054 
143,141,032,197 
198,154,208,157 
185,144,153,098 
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35270:201, 
35276:195, 
35282:144, 
35288:169, 
35294:032, 
35300:240, 
35306:003, 
35312:154, 
35318:133, 
35324:128, 
35330:080. 
35336:173. 
35342:010, 
35348:000, 
35354:001, 
35360:000, 
35366:201, 
35372:240, 
35378:201, 
35384:240, 
35390:153, 
35396:138, 
35402:153, 
35408:235, 
35414:000. 
35420:153, 
35426:154, 
35432:141, 
35438:170, 
35444:154, 
35450:154. 
35456:154, 
35462:154, 
35468:144, 
35474:013, 
35480:232, 
35486:238. 
35492:192, 
35498:154. 
35504:032, 
35510:153, 
35516:145, 
35522:066 . 
35528:214, 
35534:023. 
35540:154. 
35546:032, 
35552:032, 
35558:032, 


032,240,004, 
137,200,132, 
024,101.134, 
153,105,000. 
043,136,173, 
008,173,221, 
032,238,139, 
133,136,173, 
137.104,104. 

153.144.153, 

208.248.153, 
083.003,201, 
201,136,240, 

141.224.154, 

141.189.154, 
032,085,145, 
058,240,040, 
243,201,059, 
044,240,015, 
011,157,205. 
144,153,200, 

142.199.154, 
200,032,102, 
136,141,209, 

142.199.154, 
032,102,138. 
076,238,136, 
192,154,141, 
014,192.154, 
014. 192.. 154. 
014,192,154, 
014,192,154, 
189,205,153, 
002,233,007 
192,154,141 
236.199,154 

198.154.169 
000,240,014 
208,009,072 
066, 133, 104 
144,153,200 

153.144.153 

208.104.169 
154,173.208 

140.211.154 
240,015,032 
051.141.032 
051,141.172 
085.145,153 


200.076,183 
134,169,147 
133. 134, 112 
133,135,143 
208,154,200 
154,240,240 
173, 192,243 
193,154,159 
076,146,178 
200,192,198 
144, 153,220 
003,240,199 
006.169,008 
096, 169,036 
096,162,001 
240,044,066 
201,032,042 
240,032,035 
201,041,024 
153,232,030 
076,033,053 
153,144,230 
138,076,007 
154,169,100 

153.144.110 
173,209,131 
169,000,103 
193, 154,055 
046,193,111 
046, 193, 101 
046, 193, 107 
046, 193, 113 
201,065,077 
041,015,070 
192,154,224 

208.209.110 
001,096,246 
1 74,208,224 
152,072,069 
168,104,015 

, 032,085!, 181 
, 200.201,160 
, 000, 141,114 
. 154,240,063 
,173,226,109 
,130,141,156 
,091,141,194 
,211,154,217 
.144, 153, 174 
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JT35564: 200 
35570:085 
35578:201 
35582:145 
35588:201 
35594:139 
35600:052 
35606:229 
35612:034 
35618:174 
35624:020 
35630:122 
35636:140 
35642:172 
35648:138 
35654:157 
35660:154 
35666:240 
35672:201 
35678:137 
35684:154 
35690:153 
35696:173 
35702:211 
35708:139 
35714:153 
35720:201 
35726:240 
35732:076 
35738:141 
35744:169 
35750:133 
35756:043 
35762:236 
35768:000 
35774:202 
35780:173 
35786:020 
35792:058 
35798:141 
35804:104 
35810:008 
35816:076 
35822:173 
35828:001 
35834:002 
35840:192 
35846:154 
35852:141 , 


201,032,208, 

145.153.144 
034,208,069 
208,003,076 
058.208,003 
201,059,208, 
137,174,222 
154,076,211 
208,003,076 
208,154,208 
141,076,252 

142.153.144 
211,154,032 

211.154.200 
162,000,142 
245,153,232 
208,117,032 
067,201,058 
059,208,012 

174.222.154 
076,151,139 

173.208.154 

185.153.201 
032,020,141 
173,185,153, 
200,201,032 
000,240,020 
016,157,245 
074,139,238 
186.153,076 
245,133,134 

135.140.211 
136,174,192 

140.172.211 
162,005,157 
208,250,076 

208.154.208 
141,173,186 
240,003,032 
224,154,238 

104.173.208 

173.226.154 
114,131,076 

208.154.201 
096,032.014 
032,011,145 
154,229,136 

173.193.154 
191,154,169 


245,032,130 
153,200,098 
032,085,109 
211,139,012 
076,214,252 
012,032,149 
154,142,129 
139,201,008 
252,138,227 
009,032,051 
138,076,231 

153.170.162 
236,140,197 
076,252,099 
215,154,107 
173,215,221 
085,145,049 
240,063,183 
032,052,140 
142,229,128 

141.185.178 
208,013,247 
032,208,040 
076,074,160 
153,144,047 
240,024,212 
201,058,088 
153,232,161 
215,154,020 
104,139,185 
169,153,139 
154,032,203 
154,032,135 
154,169,236 
245,153,138 
074,139,115 
003,032,206 
153,201,052 

253.137.163 
228,154,073 

154.240.179 
240,003,006 
146,128,135 
002,208,160 
145,162,182 
056,173,157 
141,190,018 
229,137,022 
000,032,187 
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*35858:036 
35864:003 
35870:154 
35876:208 
35882:001 
35888:000 
35894:201 
35900:051 
35906:032 
35912:205 
35918:201 
35924:048, 
35930:000 
35936:133 
35942:032 
35948:141 
35954: 14 1 
35960:154 
35966:096 
35972:032 
35978:008 
35984:060 
35990:183 
35996:173 
36002:020 
36008:240 
36014:060 
36020:236 
36026:007 
36032:141 
36038:006 
36044: 14 1 
36050:140 
36056:173 
36062:051 
36068:060 
36074:236 
36080:223 
36086:138 
36092:240 
36098:002 
36104:154 
361 t 0: 145 
36116:024 
36122:136 
36128:137 
36134:240 
36140:169 
36146:096. 


145.173.190, 

206,191,154, 

208.238.173, 
233,032,014, 
032,008,145, 
162,000,185, 
043,240,004, 
140,200,185, 
078,140,176, 
153,232,076, 
058,176,006, 
056,233,208, 

157.205.153, 

134.169.153, 
043,136,173, 

217.154.173, 
218,154,096, 
208,004,032, 

173.226.154, 
014,145,162, 
145,174,183, 
141,032,051, 
154,032,236, 

208.154.208, 
141,096, 173, 
006,174,192, 

141.174.192, 

140.173.208, 
032,020,141, 
096,173,226, 

174.192.154, 

174.192.154, 

173.226.154, 
227,154,240, 
141 , 174, 193, 

141.174.193, 

140.142.191, 
154,240,005, 

145.136.173, 
022,032,014, 
032,011,145, 
032,042,145, 
162,001,032, 
169,001,101, 
169,000,101, 
096,160,000, 
010,032.036, 
141,200,076, 
169.032,032, 


154,208,156 
206,190,206 
191,154,124 
145,162,062 
096,160,228 
144,153.180 
200,076,050 
144,153,165 
018,157,155 
062,140,172 
056,233,040 
096,169,126 
169,205,211 
133,135,185 
192,154,064 
193,154,116 
173,203,080 
020,141,167 
240,017,008 
001,032,006 
154,032,066 
141,174,231 
140,096,223 
004,032,167 
226,154,204 
154,032,198 
154,076,203 
154,208,019 
032,020,182 
154,240,198 
032,060,048 
032,236,109 
240,014,133 
003,032,021 
154,032,199 
154,076,002 
154,173,246 
160,000,254 

221.154.189 
145,162,099 
173,191,044 
032,014,171 
008,145,251 
136.133.072 

137.133.190 
177,134,224 
145,032.021 
036,141,039 
036,145,048 
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36152:032,169,141 
36158:154,173,227 
36164:138,032,097 
36170:141,174,210 
36176:000,032,207 
36182:141,174,210 
36188:227,154,240 
36194:032!097,142 
36200:097,142,032 
36206:166,136,165 
36212:145,032,005 
36218:013,032,036 
36224: 1 4 1 ,096,174 
36230:188.154,032 
36236:059,142,096 
36242:134,169,153 
36248:034,141,096 
36254:036,145.032 
36260:013,032,036 
36266:208.154,208 
36272:222,154,208 
36278:209,154,032 
36284:004.032,011 
36290:154,032,036 
36296:145,162,001 
36302:173,209,154 
36308:154,208,001 
36314:154,208,001 
36320:145,162.004 
36326:173.227,154 
36332:210,154,032 
36338:252,141,169 
36344:154,032,207 
36350:145,162,001 
36356:096,174,208 
36362:096,174,222 
36368:096,032,014 
36374:032,011,145 
36380:240,013,165 
36386:142,165,136 
36392:076,050,142 
36398:136,032,207 
36404:145,162,001 
36410;096,174,208 
36416:096,174,222 
36422:096,032,014 
36428:032,011,145 
36434:174,187,154 
36440:032,014,145 


,096,142,210,078 
, 154,240,01 1,253 
,142,032,210,207 
,154,096,169,250 
,145,032,210,194 
,154,096,173,010 
,014,165,137,005 
,165,136,032,190 
, 005, 142,096, 106 
,137,032,207,185 
,142,096,169,193 
,145,032,169,037 
,187,154,173,029 
,207,145,032,124 
,169,144,133,115 
, 133, 135,032, 134 
,169,253,032,109 
,143,141,169,056 
,145,096,174,148 
,001,096,174,243 
,001,096,141,230 
,014,145,162,130 
,145,173,209,250 
.145,032.014.095 
,032,008,145,181 
,096,174,208,196 
,096,174,222,043 
, 096,032,014,211 
.032,011,145,211 
,240,009,173,182 
,097,142,076,179 
,000,174,210,164 
,145,032,014,064 
,032,008,145,235 
,154,208,001,077 
,154,208,001,097 
,145,162,004,213 
,174,227,154,253 
,137,032,097,200 
,032,097.142,236 
,165,137,166,008 
,145,032,014,100 
,032,008,145,033 
,154,208,001,131 
,154,208,001,151 
, 145, 162,004,01 1 
,173,188,154,011 
,032,207,145,213 
,162,001,032,218 
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36446:008, 
36452:168, 
36458:074. 
36464:128, 
36470:032, 
36476:208, 
36482:104, 
36488:208, 
36494:129. 
36500:076, 
36506:003. 
36512:208. 
36518:079, 
36524:201, 
36530:144, 
36536:191, 
36542:130, 
36548:091, 
36554:143. 
36560:169, 
36566:141, 
36572:143, 
36578;240, 
36584:000, 
36590:240, 
36596:076, 
36602:000. 
36608:153, 
36614:208, 
36620:006. 
36626:141, 
36632:141, 
36638:032, 
36644:189, 
36650:036, 
36656:145, 
36662:169, 
36668:032, 
36674:142, 
36680:238, 
36686:165. 
36692:137, 
36698:154, 
36704:133, 
36710:173, 
36716:085, 
36722:000, 
36728:153, 
36734:200, 


145,096,072, 

185.128.153, 
074,074,074, 
153,032,036, 
036,145,096, 
008,032,221, 
076,146,128, 
006,032,039, 
142,201,068, 
102,143,201, 
076’ 171 , 1 43 j 
003,076,236, 
208,003,076, 
083 j208,003, 
201,072,208, 

144.153.144, 
141.032,051, 
141,032,155, 
141,169.157, 
154,133,135, 
032,121,141, 
032,085,145, 
003,076,221, 
032,085.145, 
007,153,144. 
233,142,132, 

185.144.153, 
226.153,200, 
243,173,208, 
032,091,141i 
032,143,141, 
032,013,135, 
008,145,162, 
154,096,169, 
145,169,069, 
169,078,032, 
063,032,036, 
032,036,145, 

173.208.154, 
189,154,238, 
136,141,230, 

141.231.154, 
133,136,173, 
137.032,190, 
208,154,240, 

145.153.144, 
032,085,145, 
144,153,153, 
076,115,143, 


041,015,215 
170,104,240 
168,185,243 
145,138,232 
201,070.186 
142,104,071 
201,069,086 
143,076,128 
208,003,125 
080,208,190 
201,078,058 
143,201,003 
215,143,122 
076,165,140 
003,076,114 
153,032,233 
141,032,205 
141,032,020 
133,134,055 
032,034,097 
076,190,147 
201,032,090 
142,160,044 
201,000,183 
153,200,111 
128,160,091 
240,008,212 
196,128,032 
154,208,176 
032,051,109 
032, 121 , 116 
162,001,252 
000,142,007 
046,032,210 
032,036,017 
036,145,141 
145,169,161 
032,221,046 
240,003,218 
208,154,229 
154,165,045 
173,185,081 
186,154,002 
136,096,052 
023,032,164 
153,160,180 
240,013,117 
226,153,078 
076,190,158 
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36740:143,132,128 
36746:032,121,141 
36752:032,070,135 
36758:162,001,032 
36764:132,144,032 
36770:104,162,000 
36776:076,146,128 
36782:240,014,032 
36788:222,154,032 
36794:001.032,008 
36800:145,240,007 
36806:006,076,190 
36812:137.104,104 
36818:189.154.076 
36824:046,032.036 
36830:032,036,145 
36836:169,001,141 
36842:190.143,173 
36848:205,032,085 
36854:240,012,201 
36860:201,083,240 
36866:240,076,169 
36872:145.169.078 
36878:169,080.032 
36884:121,141,206 
36890:014,145,162 
36896:145,169,013 
36902:169,004,032 
36908:014,145,162 
36914:145,076.190 
36920:032,036,145 
36926:036.145,169 
36932:145,032,121 
36938:141,223,154 
36944:169,046,032 
36950:078,032,036 
36956:032,036,145 
36962:169,000,141 
36968:190,143,169 
36974:145,169,078 
36980:169,083,032 
36986:121,141.169 
36992:154,076,190 
36998:003,048,001 
37004:032,060,141 
37010:169,092,133 
37016:133,135,032 
37022:034,141,104 
37028:131,169,046 


, 032, 143, 14 1,083 
,238,221,154,021 
, 032,014,145,060 
,008,145,032,018 
, 253, 137, 104, 190 
, 142, 189, 154,145 
, 173,208, 154,029 
, 143, 135,238,208 
,014.145,162,141 
,145,032,085,233 
, 20 1,058,240,059 
, 143,032,253, 130 
.162.000,142.085 
. 146, 128. 169,048 
, 145, 169,079.211 
, 032, 12 1,14 1,217 
, 223, 154,076,224 
, 208, 154,240,062 
, 145,201,080,220 
, 079,240,058,052 
,106.201,072,131 
, 046,032,036,089 
, 032’, 036 , 145, 101 
, 036, 145,032,252 
, 222, 154,032, 128 
, 004,032,01 1,138 
,032,036,145,060 
, 025, 145,032, 139 
,001,032,008,150 
, 143, 169,046,051 
,169,073,032,036 
. 079,032,036 047 
,141,169,000,164 
, 076, 190, 14 3,233 
,036,145,169,165 
,145,169,072,106 
,032,121,141,087 
,227,154,076,097 
,046,032,036,208 
,032,036,145,203 
,036,145,032,101 
,000,141,226,152 
. 143, 174,099, 196 
,096,169,000,195 
,032,051,141,085 
,134,169,154,229 
,155,141,032,012 
, 104,076,220,069 
,032,036.145,211 
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37034 : 169 , 083 , 
37040 : 121 , 141 . 
37046 : 005 , 169 , 
37052 : 076 , 190 , 
37058 : 036 , 145 , 
37064 : 145 , 032 , 
37070 : 141 , 227 , 
37076 : 010 . 010 , 
37082 : 165 , 131 , 
37088 : 129 , 157 , 
37094 : 157 , 069 . 
37100 : 072 , 003 , 
37106 : 003 , 165 , 
37112 : 165 , 132 , 
37118 : 003 , 157 , 
37124 : 228 , 132 , 
37130 : 096 , 134 , 
37136 : 134 , 142 , 
37142 : 134 , 001 , 
37148 : 169 , 012 , 
37154 : 002 , 145 , 
37160 : 169 , 155 , 
37166 : 204 , 145 , 
37172 : 143 , 032 , 
37178 : 157 . 072 , 
37184 : 169 , 011 , 
37190 : 203 , 145 , 
37196 : 204 , 145 , 
37202 : 203 , 145 , 
37208 : 142 , 205 , 
37214 : 046 , 160 , 
37220 : 230 , 160 , 
37226 : 024 , 165 . 
37232 : 141 , 206 , 
37238 : 048 , 146 , 
37244 : 005 . 240 . 
37250 : 169 , 000 , 
37256 : 003 , 104 , 
37262 : 142 , 032 , 
37268 : 157 , 072 , 
37274 : 169 , 007 , 
37280 : 002 , 145 , 
37286 : 205 , 145 , 
37292 : 169 , 000 , 
37298 : 240 , 002 , 
37304 : 146 , 162 , 
37310 : 138 , 032 , 
37316 : 145 , 202 , 
37322 : 145 , 000 , 


032 , 036 , 145 , 032,155 
173 , 208 , 154 , 240,189 
00 1,14 1 , 226 , 154 , 1 10 
143 , 169 , 046 , 032,076 
169 , 072 , 032 , 036,172 
121 , 141 , 169 , 001,041 
154 . 076 , 190 . 143,113 
010 , 010 . 170 . 096,006 
032 , 212 , 144 , 165,043 
068 , 003 , 165 , 130,108 
003 , 165 , 128 , 157,141 
169 , 000 , 157 , 073,198 
133 , 157 , 074 , 003,009 
157 . 075 , 003 , 169,181 
066 , 003 , 032 , 086,089 
001 , 096 , 134 , 142,225 
143 , 096 , 162 , 000,129 
134 , 143 , 134 , 131,066 
096 , 032 . 212 , 144,129 
157 , 066 , 003 , 076,255 
201 , 013 , 208 , 002,093 
141 , 203 , 145 , 140,225 
142 , 205 , 145 , 165,028 
212 , 144 , 169 , 000,240 
003 , 157 , 073 , 003,011 
157 , 066 , 003 , 173,131 
032 , 002 , 145 , 172,001 
174 , 205 , 145 , 173,098 
096 , 140 , 204 , 145,247 
145 , 165 , 162 , 240,123 
000 , 177 , 160 , 072,197 
208 , 002 , 230 , 161,067 
160 , 237 , 047 , 146,117 
145 , 165 , 161 , 237,143 
013 , 206 , 145 , 144,052 
003 , 076 , 174 . 131,241 
133 , 001 , 141 , 083,145 
076 , 162 , 145 , 165,023 
212 , 144 , 169 , 000,073 
003 , 157 . 073 , 003,101 
157 , 066 , 003 , 032,076 
172 , 204 , 145 , 174,234 
201 , 155 , 208 , 002,058 
096 , 072 . 165 , 017,179 
104 , 096 , 076 , 203,131 
007 , 142 , 206 , 145,224 
025 , 145 , 174 , 206,142 
208 , 243 , 076 , 014,060 
000 , 000 , 000 , 134,225 
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* 37328 : 212 , 
37334 : 032 , 
37340 : 240 , 
37346 : 127 , 
37352 : 006 , 
37358 : 236 , 
37364 : 085 , 
37370 : 153 , 
37376 : 145 , 
37382 : 169 , 
37388 : 133 , 
37394 : 192 . 
37400 : 193 , 
37406 : 000 , 
37412 : 000 , 
37418 : 000 , 
37424 : 000 , 
37430 : 000 , 
37436 : 000 , 
37442 : 000 , 
37448 : 146 , 
37454 : 146 , 
37460 : 146 , 
37466 : 146 , 
37472 : 169 , 
37478 : 000 , 
37484 : 255 , 
37490 : 244 , 
37496 : 146 , 
37502 : 208 . 
37508 : 221 . 
37514 : 013 , 
37520 : 024 . 
37526 : 184 , 
37532 : 183 , 
37538 : 146 , 
37544 : 146 . 
37550 : 039 , 
37556 : 160 , 
37562 : 255 , 
37568 : 245 , 
37574 : 146 . 
37580 : 255 , 
37586 : 000 , 
37592 : 082 , 
37598 : 141 , 
37604 : 125 , 
37610 : 148 . 
37616 : 169 , 


133 , 213 , 032 , 
230 , 216 , 160 , 
145 , 177 , 243 , 
032 , 036 , 145 , 

172 . 240 . 145 , 
096 , 000 , 160 , 
145 , 201 , 032 , 
000 . 005 , 200 , 
169 , 000 , 153 , 
000 , 133 , 134 , 
135 , 032 , 043 , 

154 . 141 . 187 , 

154 . 141 . 188 , 
096 , 076 , 203 , 
000 , 000 , 000 , 
000 , 000 , 000 , 
000 , 000 . 000 , 
000 , 000 , 000 , 
000 . 000 , 000 , 
173 , 035 , 146 , 
173 , 036 , 146 , 
173 , 037 , 146 , 
173 , 038 , 146 , 
174 , 040 , 146 , 
000 , 141 , 041 , 

185 . 255 . 255 , 
200 , 204 , 041 , 

238 . 105 . 146 , 
224 , 000 , 240 , 
224 , 173 , 039 , 
096 , 173 , 040 , 
039 , 146 , 208 , 
138 , 109 , 036 , 
146 , 173 , 035 , 
146 , 024 , 138 , 

141 . 187 . 146 , 

141 . 186 . 146 , 
146 , 208 , 004 , 

255 . 185 . 255 . 
255 , 136 . 192 . 

206 . 184 . 146 , 
202 , 208 , 234 , 
154 , 032 , 185 , 
133 , 162 ’ 169 , 
032 , 121 , 141 , 
124 , 148 , 169 , 
148 , 169 , 228 , 
169 , 148 . 141 , 
084 . 141 , 128 , 


170 , 217,161 
000 , 140,224 
072,04 1,1 14 
104 , 048,206 
200 , 208.179 
000 , 032,250 
240 , 007,186 
076 , 243,159 
000 , 005,216 
169 , 005,104 

136 . 173.152 
154 , 173,251 
154 , 160,246 
146 , 000,039 
000 , 000,036 
000 , 000,042 
000 , 000,048 
000 , 000,054 
000 , 000,060 

141 . 104.153 
141 , 105,051 
141 , 107.060 
141 , 108,068 
240 , 032,100 
146 , 160,241 
153 , 255,181 
146 , 208,138 
238 , 108,169 
008 , 202,172 
146 , 208,100 
146 , 170,210 
001 , 096,129 
146 , 141,226 

146 . 141.207 
109 , 038,026 
173 , 037,224 
232 , 172,167 
240 . 013,056 
255 , 153,163 

255 . 208.207 
206 , 187,086 
096 , 162,222 
145 , 169,120 
002 , 133,041 
169 , 240,233 
150 , 141,071 
141 , 126,141 
127 , 148,091 
148 , 169,055 
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37622 : 147 , 
37628:141 . 
37634 : 131 , 
37640 : 148 , 
37646 : 169 , 
37652 : 151 , 
37658 : 14 1 , 
37664 : 137 , 
37670 : 148 . 
37676 : 169 , 
37682 : 152 , 
37688 : 146 , 
37694 : 169 , 
37700 : 084 . 
37706 : 146 , 
37712 : 032 , 
37718 : 147 . 
37724 : 146 , 
37730 : 146 , 
37736 : 145 , 
37742 : 136 , 
37748 : 003 , 
37754 : 150 , 
37760 : 208 , 
37766 : 073 , 
37772 : 201 , 
37778 : 146 , 
37784 : 201 , 
37790 : 146 , 
37796 : 041 , 
37802 : 201 , 
37808 : 153 , 
37814 : 208 , 
37820 : 000 , 
37826 : 000 , 
37832 : 201 , 
37838 : 176 , 
37844 : 255 , 
37850 : 141 , 
37856 : 208 , 
37862 : 045 , 
37868 : 003 , 
37874 : 147 , 
37880 : 148 , 
37836 : 046 , 
37892 : 240 , 
37898 : 221 , 
37904 : 200 , 
37910 : 002 , 


141 . 129.148 

130 . 143.169 
148 , 169,246 
169 , 151,141 
196 , 141,134 

141 . 135.148 

136 . 148.169 
148 , 169,224 
169 , 151,141 
074 . 141,006 
141 , 007,002 
240 , 003,076 
203 , 141,065 
147 , 169,000 
169 , 032,141 
014 , 145.096 

169 . 142.160 
149 . 160,000 
140 , 064,146 
166 , 001,016 
240 , 007,224 
032 , 115,150 
076 , 087,147 
010 , 072,173 
001 , 141,064 
043 , 208,005 
240 . 209,238 
059 , 208,003 
174 , 064,146 
127 , 201,097 
123 , 176,002 
000 , 005,200 

174 . 136.169 
005 , 140,042 
240 . 153,173 
058 , 176,039 
003 . 076,243 
032 . 223,150 
045 , 146,173 
003 , 032,163 
146 , 204,042 
032 , 255,149 
169 , 082,133 

133 . 204.160 
146 , 162,000 
048 , 201,255 
000 , 005,208 
208 , 239,230 
148 , 177,203 


169 , 175,131 
151 , 141,108 
14 1 , 132,20 1 
133 , 148,130 
148 , 169,203 
169 , 211,207 
151 , 141,144 

141 . 138.221 
139 , 148,166 
002 , 169,093 
173 . 065,078 
087 , 147,243 
146 , 076,094 
141 , 047.144 
048 . 146,244 
032 , 070,213 
150 , 032,118 
140 , 063,238 
032 , 085,199 
017 , 224,161 
128 , 240,061 
032 , 104,040 
201 . 034,049 
064 , 146,033 
146 , 104 , 151 
174 , 063,071 
063 , 146 , 164 
238 , 064,157 
208 . 012.140 
144 , 006,012 
041 , 095,040 
201 . 000,223 
155 , 153,153 
146 , 192,201 
000 , 005,253 
20 1 , 048 . 155 
147 , 169,252 

165 . 208.221 
055 , 146,156 
149 , 172,183 
146 , 240,029 
076 , 094,077 
203 , 169 , 121 
000 , 140,009 
177 , 203,220 
240 , 034,254 
009 , 232,173 
204 , 076,149 

, 240 , 008,032 
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37916 : 200 , 208 , 
37922 : 024 , 148 , 
37928 : 000 , 076 , 
37934 : 160 , 150 , 
37940 : 087 , 147 , 
37946 : 046 , 146 , 
37952 : 148 , 056 , 
37958 : 146 , 189 , 
37964 : 072 , 173 , 
37970 : 076 , 073 , 
37976 : 079 , 083 , 
37982 : 000 , 083 , 
37988 : 000 , 076 , 
37994 : 000 , 077 , 
38000 : 032 , 000 , 
38006 : 000 , 083 , 
38012 : 000 , 000 , 
38018 : 000 , 000 . 
38024 : 000 , 000 , 
38030 : 133 , 203 , 
38036 : 229 , 203 , 
38042 : 032 , 133 , 
38048 : 229 , 204 , 
38054 : 040 , 146 , 
38060 : 208 , 001 . 
38066 : 254 , 002 , 
38072 : 169 , 000 , 
38078 : 000 , 177 , 
38084 : 165 , 001 . 
38090 : 049 , 146 , 
38096 : 202 . 048 , 
38102 : 039 , 146 , 
38108 : 189 , 148 , 
38114 : 002 , 096 , 
38120 : 000 , 133 , 
38126 : 204 , 169 , 
38132 : 168 , 140 , 
38138 : 101 , 203 , 
38144 : 146 , 141 , 
38150 : 105 , 000 , 
38156 : 146 . 141 , 
38162 : 051 , 146 , 
38168 : 066 , 146 . 
38174 : 048 , 146 . 
38180 : 003 , 076 , 
38186 : 136 , 056 , 
38192 : 043 , 146 , 
38198 : 193 . 154 . 
38204 : 066 , 146 , 


249 , 230 , 204,076 
238 , 046 , 146,162 
016 , 148 , 169,156 
032 , 146 , 149,076 
142 , 062 , 146,173 
010 , 170 , 189,124 
233 . 001 , 141.066 
125 , 148 , 233,000 
066 , 146 , 072,096 
083 , 084 , 000,068 
000 , 078 , 069,087 
065 , 086 , 069,032 
079 , 065 , 068,032 
069 , 082 , 071,069 
076 , 065 , 068,083 
089 , 083 , 000,255 
000 , 000 , 000,000 
000 , 000 , 000.000 
000 , 000 , 169,000 
056 , 173 , 047,146 
141 , 039 , 146,169 
204 , 173 , 048,146 
141 , 040 , 146,173 
170 , 013 , 039,146 
096 , 169 , 001,141 
224 , 000 , 240,029 
141 , 049 , 146,160 
203 , 032 , 036,145 
048 , 022 , 200,204 
208 , 241 , 230,204 
011 . 208 , 234,173 
141 , 049 , 146,076 
169 , 000 , 141,254 
108 , 010 , 000,169 
203 , 169 , 032,133 
000 , 141 , 055,146 
050 , 146 , 152,024 
133 , 134 , 141,051 
053 , 146 , 165,204 
133 , 135 , 141,052 
054 , 146 , 056,173 
237 , 047 , 146,141 
173 , 052 . 146,237 
013 , 066 , 146,144 
097 , 149 . 032,043 
173 , 192 , 154,237 
141 . 066 , 146,173 
237 , 044 . 146,013 
240 . 013 , 176,014 


171 

093 
247 
04 1 
231 
197 
143 
189 
210 
228 
173 
164 
218 
180 
116 
124 
130 
049 
132 
051 
1 22 
069 
208 
020 
159 
08 1 
015 
068 
000 
060 
04 3 
097 
099 
134 
185 
156 
245 
08 7 
060 
216 
018 
076 


222 

251 

073 

203 
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3 S 210 : 032 . 
38216 : 230 . 
38222 : 055 , 
38228 : 152 , 
38234 : 169 , 
38240 : 146 , 
38246 : 053 , 
38252 : 056 , 
38258 : 052 , 
38264 : 056 , 
38270 : 146 , 
38276 : 203 , 
38282 : 208 , 
38288 : 149 , 
38294 : 160 . 
38300 : 032 , 
38306 : 096 , 
38312 : 001 , 
38318 : 146 , 
38324 : 173 , 
38330 : 173 , 
38336 : 056 . 
38342 : 146 , 
38348 : 146 , 
38354 : 173 , 
38360 : 048 , 
38366 : 235 , 
38372 : 039 , 
38378 : 146 , 
38384 : 056 , 
38390 : 048 , 
38396 : 048 , 
38402 : 133 , 
38408 : 109 , 
38414 : 173 , 
38420 : 036 , 
38426 : 146 , 
38432 : 051 , 
38438 : 048 , 
38444 : 040 , 
38450 : 146 , 
38456 : 206 , 
38462 : 013 , 
38468 : 134 , 
38474 : 109 , 
38480 : 173 , 
38486 : 048 , 
38492 : 005 , 
38498 : 146 , 


128 . 149 . 200 , 
204 , 076 , 245 , 
146 , 032 , 128 , 
101 , 203 , 141 , 
000 , 101 , 204 , 
238 , 055 , 146 , 
146 , 237 , 051 , 
146 , 173 . 054 , 
146 . 141 , 057 , 
146 , 208 , 003 , 
096 , 172 , 050 , 

201 . 155 . 240 . 
247 , 230 , 204 , 
096 , 133 , 203 , 
000 . 177 , 203 , 
036 , 145 , 200 , 
173 , 053 , 146 , 
141 , 035 , 146 , 
105 , 000 , 141 , 
051 , 146 , 141 , 
052 , 146 , 141 , 
173 , 047 , 146 , 
141 , 039 , 146 , 
237 , 054 , 146 , 
047 , 146 , 240 , 
146 , 206 . 047 , 
149 , 141 , 040 , 
146 , 240 , 022 , 
056 . 173 , 047 , 
146 , 141 , 047 , 
146 , 237 , 057 , 
146 , 096 , 173 , 
203 , 141 , 035 . 
042 , 146 , 141 , 
052 , 146 , 133 , 
146 , 105 , 000 , 
056 , 173 , 047 , 
146 , 141 , 039 , 
146 , 237 , 052 , 
146 , 176 , 014 , 
208 , 003 , 206 , 
047 , 146 , 076 , 
039 , 146 , 240 , 
146 , 056 , 173 , 
042 , 146 , 141 , 
048 , 146 , 105 , 
146 ’ 160 , 000 , 

145 . 203 . 200 , 

144 . 245 . 240 , 


208 , 002,017 
148 , 206,157 
149 , 024,100 
053 , 146,112 
141 , 054,247 
056 , 173,142 
146 , 141,108 
146 , 237,152 
146 , 238,126 
238 , 057,060 
146 , 177,145 
008 , 200 , 115 
076 , 131,210 
132 , 204,037 
240 , 006,168 
208 , 246,255 
024 , 105,247 
173 , 054,206 
036 , 146,236 
037 , 146,106 
038 , 146,114 
237 , 053,136 
173 , 048,123 
176 , 014,209 
003 , 206,001 
146 , 076,117 
146 , 013,178 
032 , 067,006 
146 , 237,015 
146 , 173,181 
146 , 141,253 
051 , 146,144 
146 , 056,204 
037 , 146,117 
204 , 141,095 
141 , 038,230 
146 , 237,063 
146 , 173,216 
146 , 141,040 
173 , 047,128 
048 , 146,039 
070 , 150,239 
003 , 032,023 
047 , 146,002 
047 , 146,193 
000 , 141,181 
185 , 000,113 
204 , 042,123 
243 , 096,188 
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38504 : 165 , 131 , 240 , 
38510 : 145 , 032 , 014 , 
38516 : 001 . 141 , 066 , 
38522 : 145 , 169 , 171 , 
38528 : 146 , 149 , 174 , 
38534 : 000 , 032 , 207 , 
38540 : 141 , 096 . 155 , 
38546 : 083 , 032 , 082 , 
38552 : 121 . 046 , 155 , 
38558 : 121 , 110 , 116 , 
38564 : 069 , 114 , 114 , 
38570 : 000 , 253 , 069 , 
38576 : 114 , 032 , 045 , 
38582 : 082 , 075 . 032 , 
38588 : 109 , 032 , 000 , 
38594 : 242 , 169 , 000 , 
38600 : 005 , 133 , 244 , 
38606 : 176 , 008 , 032 , 
38612 : 242 , 133 , 208 , 
38618 : 133 , 212 . 133 , 
38624 : 191 , 150 . 165 , 
38630 : 146 . 165 , 213 . 
38636 : 032 . 231 , 148 , 
38642 : 150 , 076 , 087 , 
38648 : 146 , 205 , 042 , 
38654 : 076 , 140 , 148 , 
38660 : 173 , 051 , 146 ^ 
38666 : 173 . 052 , 146 , 
38672 : 173 , 053 , 146 , 
38678 : 173 , 054 , 146 , 
38684 : 165 , 208 , 205 , 
38690 : 020 , 173 , 055 , 
38696 : 173 , 058 , 146 , 
38702 : 173 , 059 , 146 , 
38708 : 076 , 058 , 151 , 
38714 : 173 , 060 , 146 , 
38720 : 061 . 146 , 133 . 
38726 : 053 , 146 . 229 , 
38732 : 146 , 173 , 054 , 
38738 : 141 , 040 , 146 , 
38744 : 173 , 055 , 146 , 
38750 : 039 , 146 , 208 , 
38756 : 146 , 076 , 165 , 
38762 : 062 , 146 , 105 , 
38768 : 169 , 000 , 105 , 
38774 : 172 , 062 , 146 , 
38780 : 201 , 155 , 240 , 
38786 : 240 , 006 , 200 , 
38792 : 044 , 148 , 152 , 


003 , 032 , 025,188 
145 , 096 . 165,195 
146 . 032 , 185.175 
160 , 150 . 032,181 
066 , 146 , 169,210 
145 , 032 , 121,159 
076 , 065 , 068,229 
101 , 097 , 100,129 
000 , 253 , 083,042 
097 , 120 , 032,242 
111 , 114 , 155,073 
114 , 114 , 111,063 
032 , 000 , 066,209 
102 , 114 , 111,186 
133 , 242 , 230,166 
133 , 243 , 169,126 
032 , 000 , 216.062 
210 , 217 , 165.246 
096 , 169 , 000,036 
213 , 096 , 032,013 
212 , 141 , 043,102 
141 , 044 , 146,061 
096 , 032 , 246,253 
147 , 173 , 062,169 
146 , 208 , 003,230 
032 , 223 , 150,255 
141 , 060 , 146.209 
141 , 061 , 146,217 
141 , 058 , 146,221 
141 . 059 , 146,229 
042 , 146 , 208,234 
146 , 208 , 047,171 
141 , 053 , 146,245 
141 , 054 , 146,253 
032 , 223 , 150,230 
133 , 203 , 173,178 
204 . 056 . 173,069 
203 , 141 , 039,113 
146 , 229 . 204,004 
176 , 001 , 096,170 
208 , 008 , 238,148 
003 , 238 , 040,000 
148 , 024 , 173,064 
000 , 133 , 129,169 
005 , 133 , 130,142 
185 , 000 , 005,176 
010 , 201 , 044,207 
208 , 242 , 076,078 
056 , 237 , 062,067 
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4 JC 8798 : 146 , 
38804 : 169 , 
38810 : 145 , 
38816 : 218 . 
38822 : 096 , 
38828 : 076 . 
38834 : 133 , 
38840 : 032 , 
38846 : 032 , 
38852 : 169 , 
38858 : 151 . 
38864 : 076 , 
38870 : 205 , 
38876 : 162 , 
38882 : 146 , 
38388 : 141 , 
38894 : 242 , 
38900 : 087 . 
38906 : 087 , 
38912 : 032 , 
38918 : 212 , 
38924 : 003 , 
38930 : 169 , 
38936 : 080 , 
38942 : 157 , 
38948 : 165 , 
38954 : 189 , 
38960 : 047 , 
38966 : 032 , 
38972 : 201 , 
38978 : 150 , 
38984 : 150 . 
38990 : 150 , 
38996 : 104 , 
39002 : 233 , 
39008 : 255 , 
39014 : 203 , 
39020 : 068 , 
39026 : 084 . 
39032 : 069 , 
39038 : 077 , 
39044 : 068 , 
39050 : 084 , 
39056 : 084 , 
39062 : 069 , 
39068 : 069 , 
39074 : 078 , 
39080 : 080 , 
39086 : 069 , 


140 , 062 , 146 , 
007 , 133 , 131 , 
169 , 000 , 133 , 
144 . 166 , 001 , 
104 , 104 , 032 , 
087 , 147 , 169 , 
032 . 104 , 151 , 
011 . 145 . 032 , 
104 , 150 , 076 , 
004 , 133 , 133 , 
166 . 131 , 032 , 
094 , 147 , 173 , 
042 , 146 , 208 , 
076 , 003 , 128 , 
032 , 191 , 150 , 

241 . 151 . 165 , 
151 , 032 , 255 , 
147 , 032 , 252 , 
147 , 169 , 004 , 

104 . 151 . 165 , 
144 , 169 , 000 , 
169 . 032 , 157 , 
000 , 157 , 072 , 
157 , 073 , 003 , 
066 , 003 , 032 , 
131 . 032 , 212 , 
072 , 003 , 105 , 
146 , 189 , 073 , 
141 , 048 , 146 , 
136 , 240 , 006 , 
076 , 087 , 147 , 
096 , 088 , 169 , 
032 , 146 , 149 , 
056 , 233 , 002 , 
000 , 032 , 207 , 
154 , 032 , 121 , 
146 , 076 , 068 , 
089 , 074 , 083 , 
083 , 066 , 067 , 
081 , 066 , 067 , 
080 , 066 , 078 , 
088 , 074 , 077 , 
065 , 083 , 084 , 
088 , 073 , 078 , 
089 , 068 , 069 , 
067 , 073 , 078 , 
067 , 067 , 080 , 
088 , 083 , 066 , 
067 , 065 , 068 , 


133 , 128,129 
032 , 025,133 
132 , 032,253 
048 , 001,226 
115 , 150,255 
008 . 133.024 
166 , 131,127 
246 , 150.032 
087 , 147,018 
032 , 104,003 
008 , 145,067 
062 , 146,138 
002 , 230,023 
173 , 062,056 
165 , 212,098 
213 , 141,004 
255 , 076,225 
151 , 076,221 
133 , 133,155 
131 , 032,103 
157 , 068,244 
069 , 003,189 
003 , 169,076 
169 , 007,001 
002 , 145,179 
144 , 024,232 
000 , 141,040 
003 , 105,099 
165 , 001,075 
032 , 115,022 
032 , 104,150 
181 , 160,148 
104 , 104,251 
170 , 104,241 
145 , 162,101 
141 , 076,107 
065 , 076,224 
082 , 082,074 
083 , 066,051 
067 , 067,025 
069 , 076,060 
080 , 083,090 
089 , 083,114 
089 , 068,112 
088 , 068,089 
088 , 073,092 
089 , 067,098 
067 , 083,123 
067 , 067,065 
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39092 : 076 , 
39098 : 065 , 
39104 : 089 , 
39110 : 076 , 
391 16 : 077 , 
39122 : 078 , 
39128 : 079 , 
39134 : 086 , 
39140 : 079 , 
39146 : 083 , 
39152 : 076 , 
39158 : 072 , 
39164 : 084 , 
39170 : 069 , 
39176 : 088 , 
39182 : 079 , 
39188 : 008 , 
39194 : 006 , 
39200 : 000 , 
39206 : 001 , 
39212 : 000 , 
39218 : 008 , 
39224 : 008 , 
39230 : 003 , 
39236 : 000 , 
39242:0321 
39248 : 208 , 
39254 : 200 , 
39260 : 192 , 
39266 : 170 , 
39272 : 000 , 
39278 : 036 , 
39284 : 216 , 
39290 : 248 , 
39296 : 048 , 
39302 : 054 , 
39308 : 067 , 
39314 : 000 , 
39320:0001 
39326 : 000 , 
39332 : 000 , 
39338 : 000 , 
39344 : 000 , 
39350 : 000 , 
39356 : 000 , 
39362 : 000 , 
39368 : 000 , 
39374 : 000 , 
39380 : 000 , 


067 , 084 , 065 , 
089 , 084 , 088 , 
065 , 080 , 072 , 
065 , 066 , 082 , 
073 , 066 , 080 , 
068 , 079 , 082 , 
082 , 066 , 073 , 
067 , 066 , 086 , 
076,0821 079 ', 
082 , 067 , 076 , 
073 . 065 , 083 , 
080 , 080 , 076 , 
073 , 083 , 069 , 
073 , 084 , 083 , 
083 , 067 , 076 , 
080 , 001 , 005 , 
008 , 008 , 001 , 
001 , 002 , 002 , 
002 , 000 . 002 , 
000 , 001 , 000 , 
000 , 000 , 000 , 
001 , 001 , 001 , 
003 , 003 , 003 , 
000 , 000 , 000 , 
000 , 000 , 000 , 
096 , 176 , 240 , 
162 , 076 , 129 , 
136 , 202 , 198 , 
224 , 225 , 056 , 
168 , 138 , 152 , 
043 , 016 , 033 , 
080 , 112 , 034 , 
088 , 002 , 008 . 
120 , 186 , 154 , 
049 , 050 , 051 , 
055 , 056 , 057 , 
068 , 069 , 070 . 
000 , 000 . 000 , 
000 , 000 , 000 , 
000 , 000 , 000 , 
000 , 000 , 000 , 
000 , 000 , 000 , 
000 , 000 , 000 , 
000 , 000 , 000 , 
000 , 000 , 000 , 
000 , 000 , 000 , 
000 . 000 . 000 , 
000 , 000 , 000 , 
000 , 000 , 000 , 


088 , 084,132 
065 , 084.149 
065 , 080,131 
075 , 066,116 
076 , 065,129 
065 . 069,139 
084 , 066,154 
083 , 082.180 
082 , 076,190 
068 , 067,165 
076 , 080 I 181 
080 , 082,204 
068 , 083,200 
088 , 084,227 
086 , 078,230 
009 , 000,188 
008 , 005,058 
000 , 000,037 
004 , 004,044 
000 , 000,040 
000 , 008,052 
007 , 008,076 
000 , 000 ', 073 
000 , 000,065 
161 , 160,133 
144 , 193,187 
132 , 134,153 
232 , 230,004 
097 , 024,142 
072 , 104,134 
001 , 065,011 
098 , 066,024 
040 , 064,022 
184 , 234.224 
052 , 053,175 
065 , 066,231 
000 , 000,158 
000 , 000,146 
000 , 000,152 
000 , 000,158 
000 , 000,164 
000 , 000,170 
000 , 000,176 
000 , 000,182 
000 , 000,188 
000 , 000,194 
000 , 000,200 
000 , 000.206 
000 , 000,212 
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39386:000,000,000, 
39392:000,000,000, 
39398:000,000,000, 
39404:000,000,000, 
39410:000.000,000. 
39416:000,000,000, 
39422:000,000,000, 
39428:211,244,225, 
39434:193,228,228, 
39440:243,000,045, 
39446:045,045,045. 
39452:045,045,045, 
39458:194,242,225, 
39464:160.207,245, 
39470:230.160,210, 
39476:229,000,213, 
39482:230,233,238. 
39488:204.225.226, 
39494:031,031,031, 
39500:031,031.031, 
39506:235,2291228. 
39512:226,229,236, 
39518:031.031,031, 
39524:188,188,188, 
39530:160,196,201, 
39536:197,210,210, 
39542:190,190.190, 
39548:190,190,000, 
39554:031,031,160, 
39560:196,245,240, 
39566:225,244,229, 
39572:225,226,229. 
39578:173,160,000, 
39584:031,03 1 , 160, 
39590:211,249,238, 
39596:160,197,242. 
39602:160.173,173. 


000,000,000,218 
000,000,000,224 
000,000,000,230 
000,000,000,236 
000,000,000,242 
000,000,000,248 
206,239,160,091 
242,244,160,050 
242,229,243,093 
045,045,045,183 
045,045,045,036 
045,045,032,029 
238,227.232,112 
244, 160,239,015 
225,238,231,060 
238,228.229,165 
229,228,160,096 
229,236.000,160 
031,031,031,000 
032,206,225,120 
160,236,225,115 
000,031,031,073 
032,188,188.083 
188,188,188,204 

211.203.160.213 
207,210,160,026 
190,190,190,234 
031,031,031,085 
173,173,160,090 
236,233,227,233 
160,160,204,084 
236,160,173,117 
031,031.031,068 
173,173,160,120 
244,225,248,045 

242.239.242.214 
160,000.000,076 


Program B-5. Apple LADS: Hex DATA 


79FD- 4C F5 82 
7A00- A9 00 AO 
7A08- DO FA A9 
7A10- BD E4 8F 
7A18- 4D 8D E5 
7A20- 8F B9 00 
7A28- 99 F3 8E 
7A30- F3 8E C8 
7A38- DO E7 88 
7A40- 20 58 83 


32 99 CE 8F 88 
00 85 EB 85 4C 
A9 7A 85 EC 85 
8F A9 01 8D FA 
04 C9 AO FO 07 
C8 4C 21 7A 99 
B9 00 04 C9 AO 
84 F9 20 E5 80 
A9 00 8D D4 8F 
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7A48- 20 0E 84 
7A50- 20 50 89 
7A58- A9 4C 20 
7A60- D6 81 A9 
7A68- 53 20 D6 
7A70- DD 8F DO 
7A7B- A9 8D 85 
7A80- D7 8F 85 
7A88- D8 8F 85 
7A90- 2F 82 AD 
7A98- A1 7D 20 
7AAO— DC 8F 8D 
7AA8- DO 03 4C 
7ABO— AD F9 8F 
7AB8- 20 OA 89 
7AC0- 89 AD F2 
7AC8- 88 4C OA 
7ADO— 17 09 03 
7AD8- CF 8F AD 
7AE0- 08 18 6D 
7AEB- 4C B2 7C 
7AF0- AO FF C8 
7AFB- 99 F3 8E 
7B00- B9 FI 8D 
7B0B- E2 7C A2 
7B10- 99 F3 8E 
7B18- 9D FI 8D 
7B20- 9D FI 8D 
7B28- 7F 20 1A 
7B30- 38 8E C9 
7B38- 8E EE E6 
7B40- 8F 20 BC 
7B48- 00 8C DC 
7B50- 41 90 03 
7B58- 8E C8 B9 
7B60- 38 8E C9 
7B68- 8F C8 B9 
7B70- 38 8E 4C 
7B78- 8F AD DD 
7B80- 8F DO AC 
7B88- 8E 85 FC 
7B90- C9 30 BO 
7B98- 02 E6 FC 
7BA0- 29 FO OC 
7BA8- 20 FO 04 
7BB0- 98 48 A9 
7BB8- 83 68 A8 
7BC0- 8E C9 23 
7BC8- 17 AD CF 


AD E7 8F DO 3F 
A9 E6 20 D6 81 
D6 81 A9 41 20 
44 20 D6 81 A9 
81 20 50 89 AD 
OB A9 FI 85 FB 
FC 20 81 83 AD 
FD 8D DO 8F AD 
FE 8D D1 8F 20 
D4 8F FO 03 4C 
OE 84 A9 00 8D 
E6 8F AC E7 8F 
C9 7A 8C FB 8F 
FO OC 20 59 89 
20 32 89 20 OA 
8F FO 03 20 06 
83 AD CF 8F FO 
DO 72 A9 01 8D 
F4 8D DO 68 A9 
CE 8F 8D CE 8F 
AD E7 8F FO 39 
B9 FI 8D FO 2E 
C9 20 DO F3 C8 
C9 3D DO 03 4C 
00 8E FB 8F 8A 
B9 FI 8D FO 08 
E8 C8 4C 13 7B 
4C C9 7A 20 78 
7F 4C C9 7A AD 

40 BO 06 AD 39 
8F 49 80 8D D5 
7F 4C BE 7B AO 
8F B9 F5 8D C9 
EE DC 8F 99 38 
F5 8D FO 16 99 

41 90 03 EE DC 
F5 8D FO 06 99 
69 7B 88 8C DB 
8F DO 40 AD DC 
A9 38 85 FB A9 
AO 00 AD 38 BE 
07 18 E6 FB 90 
B1 FB FO 10 C9 
C9 2C FO 08 C9 
C8 4C 9B 7B 48 
OO 91 FB 20 81 
68 91 FB AD 38 
FO 3F C9 28 FO 
8F C9 08 FO 37 
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7BD0- C9 03 DO 71 A9 08 18 6D 
7BD8- CE 8F 8D CE 8F 4C B2 7C 
7BE0- AC DB 8F B9 38 8E C9 29 
7BE8- F0 10 AD CF 3F C9 01 DO 
7BF0- 09 A9 lO 18 6D CE 8F 8D 
7BF8- CE 8F AD CF 8F C9 06 FO 
7C00- 53 4C 77 7C 4C 92 7C AD 
7C08- E7 8F DO 03 4C 77 7C 38 
7C10- AD D7 8F E5 FD 48 AD D8 
7C18- 8F E5 FE BO OE C9 FF FO 
7C20- 04 68 4C 00 7F 68 lO OC 
7C28- 4C 37 7C FO 04 68 4C 00 
7C30- 7F 68 10 03 4C 00 7F 38 
7C38- E9 02 8D D7 8F A9 00 8D 
7C40- D8 BF 4C 77 7C AC DB BF 
7C48- 88 B9 38 8E C9 2C DO 04 
7C50- C8 4C FC 7D AD CE 8F C9 
7C58- 4C DO 03 4C 80 7C AD D8 
7C60- 8F DO 55 AD CF 8F C9 06 
7C68- BO OD C9 02 FO 09 A9 04 
7C70- 18 6D CE 8F 8D CE 8F 20 
7C78- 4D 88 20 73 88 4C E2 7C 
7C80- AC DB 8F B9 38 8E C9 29 
7C88- DO 05 A9 6C 8D CE 8F 4C 
7C90- DC 7C AD 39 8E C9 22 DO 
7C98- 06 AD 3A 8E 8D D7 8F AD 
7CA0- CF BF C9 01 DO D1 A9 08 
7CA8- 18 6D CE 8F 8D CE BF 4C 
7CB0- 77 7C 20 4D 88 4C E2 7C 
7CB8- AD CF 8F C9 02 FO 04 C9 
7CC0- 07 DO OC AD CE 8F 18 69 
7CC8- 08 8D CE 8F 4C DC 7C C9 
7CD0- 06 BO 09 AD CE 8F 18 69 
7CD8- OC 8D CE 8F 20 4D 88 20 
7CE0- 8D 88 AD E7 BF DO 03 4C 
7CE8- 9E 7D AD F9 8F DO 03 4C 
7CF0- 9E 7D AD FB 8F DO 3E AD 
7CFB- F5 8F FO 2A A9 14 38 E5 
7D00- 24 8D E8 8F 20 1C 82 A2 
7D08- 04 20 A6 81 AC E8 8F lO 
7D10- 05 AO 02 4C 18 7D A9 20 
7D18- 20 D6 81 88 DO FA 20 1C 
7D20- 82 A2 Ol 20 A2 81 A9 14 
7D28- 85 24 A9 F3 85 FB A9 8E 
7D30- 85 FC 20 F9 88 A9 IE 38 
7D38- E5 24 8D E9 8F A9 IE 85 
7D40- 24 AD F5 8F FO IF 20 1C 
7D48- 82 A2 04 20 A6 81 AC E9 


7D50- 8F FO OA 30 08 A9 20 20 
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7D58- D6 81 88 
7D6C- A2 01 20 
7D68- AD F3 8F 
7D70- 05 A9 3C 
7D78- 20 D6 81 
7D80- BF F0 13 
7DB8- 20 D6 81 
7D90- 02 85 FC 
7D98- 89 AD D4 
7DAO- 7A AD E7 
7DA8- 8F 38 A5 
7DB0- FD 8F A5 
7DB8- FE 8F AD 
7DCO- D1 BF 85 
7DC8- 01 20 35 
7DD0- 40 7A 20 
7DD8- 35 82 A9 
7DE0- F5 8F FO 
7DE8- 04 20 A6 
7DFO- 81 20 1C 
7DF8- 82 4C DO 
7EOO- 58 FO 62 
7E08- C9 29 DO 
7E10- D8 8F DO 
7E18- 02 FO 4F 
7E20- 01 FO 77 
7E28- DO OC AD 
7E30- 8D CE 8F 
7E38- 8F C9 05 
7E40- DO 7E 4C 
7E48- 18 69 1C 
7E50- 7C 20 72 
7E58- B4 85 FB 
7E60- F9 88 4C 
7E68- DO 33 AD 
7E70- OC A9 10 
7E78- CE 8F 4C 
7E80- 10 C9 03 
7E88- 08 A9 32 
7E90- 7E A9 14 
7E98- CE 8F 4C 
7EA0- C9 02 DO 
7EA8- CE 8F 8D 
7EB0- C9 01 FO 
7EB8- C9 05 FO 
7ECO- 7E 4C 51 
7EC8- CE 8F 8D 
7ED0- 8D E8 8F 
7ED8- 8F A9 BA 


DO FA 20 1C 82 
A2 81 20 66 89 
FO 11 C9 01 DO 
4C 78 7D A9 3E 
20 8B 89 AD FC 
20 OA 89 A9 3B 
A9 00 85 FB A9 
20 F9 88 20 50 
8F DO 03 4C 8F 
8F DO 2C EE E7 
FD ED DO 8F 8D 
FE ED D1 8F 8D 
DO 8F 85 FD AD 
FE 20 1C 82 A9 
82 20 E5 80 4C 
1C 82 A9 01 20 
02 20 35 82 AD 
15 20 1C 82 A2 

81 A9 OD 20 D6 

82 A9 04 20 35 
03 B9 38 8E C9 

88 88 B9 38 8E 
03 4C EO 7B AD 
OF AD CF 8F C9 
C9 05 FO 4B C9 
AD CF 8F C9 01 
CE 8F 18 69 18 
4C DC 7C AD CF 
FO 08 A9 31 20 
51 7E AD CE 8F 
8D CE 8F 4C DC 

89 20 59 89 A9 
A9 8F 85 FC 20 
E2 7C AD DB 8F 
CF 8F C9 02 DO 
18 6D CE 8F 8D 
77 7C C9 01 FO 
FO OC C9 05 FO 
20 DO 7E 4C 51 
18 6D CE BF 8D 
77 7C AD CF 8F 
OC A9 18 18 6D 
CE 8F 4C DC 7C 
10 C9 03 FO OC 
08 A9 33 20 DO 
7E A9 1C 18 6D 
CE 8F 4C DC 7C 
8C EA 8F 8E E9 
20 D6 81 68 AA 
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7EE0- 68 A8 98 
7EE8- 24 ED AD 
7EF0- AE E9 8F 
7EF8- FI 8D C8 
7F00- 20 50 89 
7F08- 89 A9 23 
7F10- FC 20 F9 
7F18- 77 7C AO 
7F20- FO 56 C9 
7F28- 8C El 8F 
7F30- 8F 85 EB 
7F38- EC AO 00 
7F40- 91 EB C8 
7F48- FO 05 91 
7F50- B9 FI 8D 
7F58- A5 FD 91 
7F60- EB AE El 
7F68- FI 8D FO 
7F70- C8 4C 67 
7F78- 20 72 89 
7F80- 8F 85 FC 
7F88- 7F 88 8C 
7F90- DO 17 C8 
7F98- A9 FI 18 
7FA0- A9 8D 69 
7FA8- 83 AC E2 
7FB0- EB AD D8 
7FB8- 68 4C E2 
7FCO- ED AD E5 
7FC8- 80 A9 FF 
7FD0- EB E5 ED 
7FD8- 63 A2 00 
7FE0- 85 ED A5 
7FE8- AO 00 B1 
7FF0- DO 02 C6 
7FF8- EA 7F A5 
8000- EE 8D EC 
8008- 8F FO 03 
8010- D6 8F A2 
8018- 04 C8 20 
8020- BE FO 53 
8028- D1 ED FO 
8030- ED AD EC 
8038- 80 4C CE 
8040- 01 60 AD 
8048- 17 20 72 
8050- OA 89 A9 
8058- 85 FC 20 
8060- 68 68 AD 


48 8A 48 98 20 
E8 8F AC EA 8F 
60 AO 00 98 99 
CO FF DO F8 60 
20 72 89 20 59 
85 FB A9 8F 85 

88 20 50 89 4C 
FF C8 B9 FI 8D 
20 DO F6 CB C8 
38 A5 EB ED El 
A5 EC E9 00 85 
B9 FI 8D 49 80 
B9 FI 8D C9 20 
EB 4C 42 7F C8 
C9 3D FO 32 88 
EB C8 A5 FE 91 
8F CA AO 00 BD 
08 99 FI 8D E8 
7F 99 FI 8D 60 
A9 5C 85 FB A9 
20 F9 88 4C B7 
E2 8F AD DD 8F 
C8 C8 8C D6 BF 
6D D6 8F 85 FB 
00 85 FC 20 81 
8F AD D7 8F 91 
8F CB 91 EB 68 
7C AD E4 BF 85 
8F 85 EE 20 CA 
BD F8 8F 38 A5 
A5 EC E5 EE BO 
38 A5 ED E9 02 
EE E9 00 85 EE 
ED 30 OC A5 ED 
EE C6 ED E8 4C 
ED 8D EB BF A5 
8F B1 ED CD D5 
4C 2C 80 E8 8E 
01 AD E6 8F FO 
CA 80 C8 B9 38 
C9 30 90 4F E8 
FI AD EB 8F 85 
BF 85 EE 20 CA 
7F AD F8 8F 30 
E7 8F DO 02 FO 

89 20 59 89 20 
4C 85 FB A9 8F 
F9 88 20 50 89 
CE 8F 29 IF C9 
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8068- 10 F0 08 
8070- 4C DC 7C 
8078- 8F FO 03 
8080- 8F FO 03 
8088- 8F AD E6 
8090- ED 8D D7 
8098- D8 8F AD 
80A0- 02 DO IE 
8QA8- 8F AD F2 
80B0- FO 8F 6D 
80B8- AD FI 8F 
80C0- 8F AD E7 
80C8- 2C 80 A5 
80D0- C6 ED 60 
80D8- 85 FB A9 
80E0- 88 20 50 
80E8- A9 01 20 
80F0- 2C A9 90 
80F8- EE FF 8F 
8100- A9 90 85 
8108- 00 90 60 
8110- A9 90 85 
8118- DC 03 85 
8120- B1 2A 60 
8128- 85 2C A9 
8130- 81 60 AD 
8138- 49 85 2C 
8140- BA 81 A9 
8148- AD 00 90 
8150- 2C A9 90 
8158- A9 00 8D 
8160- 08 B1 2C 
8168- 85 2B A9 
8170- 85 FC AO 
8178- C8 CO IF 
8180- FB 09 80 
8188- DO F5 20 
8190- 2A AO OO 
8198- CO 12 DO 
81AO- 03 60 BE 
81A8- 6E 90 EO 
81BO- 8D 53 AA 
81B8- 60 8C 70 
8ICO- 6D 90 C9 
81C8- 81 08 AC 
8IDO- 28 60 AC 
81D8- 90 8D 6F 
81EO— 02 DO IE 
81E8- 81 4C D2 


AD F3 8F DO 03 
4C 77 7C EC D6 
4C 2C 80 EE F8 
20 D3 80 AC D6 
8F FO 01 C8 B1 
8F C8 B1 ED BD 
F3 8F FO OA C9 
AD D8 8F 8D D7 
8F FO 13 18 AD 
D7 8F 8D D7 8F 
6D D8 8F 8D D8 
8F FO 01 60 4C 
ED DO 02 C6 EE 
20 72 89 A9 96 
8F 85 FC 20 F9 

89 60 20 1C 82 
35 82 A9 01 85 
85 2D 20 5F 81 
60 A9 13 85 2C 
2D 20 5F 81 EE 
60 A9 25 85 2C 
2D 20 8A 81 20 
2B 84 2A AO 08 
8D 3F 90 A9 37 

90 85 2D 20 8A 
FF 8F FO 27 A9 
A9 90 85 2D 20 
00 8D FF 8F 60 
FO 11 A9 5B 85 
85 2D 20 8A 81 
00 90 60 60 AO 
85 2A C8 B1 2C 
F3 85 FB A9 8E 
00 A9 AO 91 2A 
DO F9 AO 00 B1 

91 2A C8 C4 F9 
DC 03 85 2B 84 
B1 2C 91 2A C8 
F7 A2 00 20 D6 
6D 90 60 8A 8D 
04 DO OA A9 EC 
A9 81 BD 54 AA 
90 8E E9 8F AD 
01 DO OC 20 OC 
70 90 AE E9 8F 
70 90 60 8C 70 
90 AD 6E 90 C9 
AD 6F 90 20 23 
81 8D 6F 90 C9 
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81F0- 
81 Fa- 
8200— 
8208- 
8210- 
8218- 
8220- 
8228- 
8230- 
8238- 
8240- 
8248- 
8250- 
8258- 
8260- 
8268- 
8270- 
8278- 
8280- 
8288- 
8290- 
8298- 
82A0- 
82A8- 
82B0- 
82B8- 
82C0- 
82C8- 
82D0- 
82D8- 
B2E0- 
82E8- 
82F0— 
82F8- 
8300- 
8308- 
8310- 
8318- 
8320- 
8328- 
8330- 
8338- 
8340- 
8348- 
8350- 

8359- 

8360- 
8368- 
8370- 


8D DO 
AD Cl 
60 AD 
AD 6F 
81 AD 
FD 4C 
90 8D 
AA A9 
00 CO 
03 4C 
4C 48 
90 A9 
02 C5 
B8 C9 
57 82 
90 53 
37 AD 
AD 02 
03 02 
B9 04 
80 99 
A9 AO 
99 02 
AD 6F 
20 DO 
30 38 
69 A6 
DA 20 
D4 AO 
95 B1 
DO F7 
FO F9 
C8 C8 
BB A9 
BA A9 
74 60 
C9 8C 
C8 C8 
7 A C8 
FO 06 
C8 B9 
05 C8 
8D C9 
D5 BD 
A9 8D 
A2 Ol 
E9 8F 
CA DO 
FO OE 


02 A9 
Cl 30 
6E 90 
90 20 
6F 90 
D2 81 
6D 90 
FD BD 
C9 83 
32 81 

81 4C 
00 C5 
B9 DO 
20 DO 
C9 2F 
AD 00 
01 02 
02 C9 
C9 20 
02 C9 
00 04 
99 00 
04 68 
90 C9 
03 4C 
E9 DO 
BO 86 
D1 82 
OO 84 
B8 91 
88 88 
C8 A9 
C8 C8 

82 85 
FC 85 
AO 00 
CD FI 
EO 39 
B9 C9 
C8 C8 
C9 8C 
DO D2 
20 FO 
71 8D 
8C CE 
20 A2 
20 B9 
F4 20 
A9 12 


OA 8D 
FB AD 
C9 04 
EC 81 
09 80 
A9 00 
A9 FO 
54 AA 
60 C9 
C9 02 
5E 81 
B8 DO 
15 AO 
05 E6 
90 04 
02 C9 
C9 53 
4D DO 
DO 22 
OO FO 
C8 4C 
04 99 
68 4C 
3A BO 
B1 00 
60 A6 
6A 18 
68 68 
94 A9 
94 C8 
B1 94 
00 91 
60 A9 
BC A9 
73 A9 
A2 FF 
8D FO 
DO FO 
BC CD 
DO EO 
CD F3 
FO EO 
04 C9 
8D CF 
8F 4C 
81 A2 
81 AE 
B9 81 
85 FB 


90 CO 
6F 90 
DO 09 
4C D2 
20 FO 
8D 6E 
8D 53 
60 AD 
01 DO 
DO 03 
8D 6F 
IB A9 
00 B1 
B8 4C 
C9 3A 
41 DO 
DO 30 
29 AD 
AO 00 
09 09 
88 82 
01 04 
00 7A 
OD C9 
38 E9 
AF 86 
20 OC 
4C 6A 
02 85 
C9 00 
C9 20 
94 C8 
46 85 
4C 85 
79 85 
E8 B9 
OA C8 
4C EB 
F2 8D 
FO EE 
BD FO 
AD F4 
OO DO 
8F BC 
CC 7A 
06 8E 
E9 8F 
C9 2A 
A9 8F 
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8378- 

8380- 

8388- 

8390- 

8398- 

83A0- 

83A8- 

83B0- 

83B8- 

83C0- 

83C8- 

83D0- 

83D8— 

83E0- 

83EB- 

83F0- 

S3F8- 

8400- 

8408- 

8410- 

8418- 

8420- 

8428- 

8430- 

8438- 

8440- 

8448- 

8450- 

8458- 

8460- 

8468- 

8470- 

8478- 

8480- 

8488- 

8490- 

8498- 

S4A0- 

84A8- 

84B0- 

84B8- 

84C0- 

84C8- 

84D0- 

84D8- 

84E0- 

84E8— 

84F0- 

84F8- 


85 FC 
60 AO 
4C 83 
00 8D 
01 8E 
80 OD 
8D OE 
12 20 
10 8F 
4C AE 
8F 20 
DO CA 
OE 8F 
18 AD 
OD 8F 
8D OE 
8F 60 
8F 8D 
D8 8F 
7E AO 
8F 8C 
F7 8F 
D2 8F 
20 B9 
B2 85 
20 4C 
03 4C 
4C F6 
E8 8F 
FC- 8F 
94 84 
FO OE 
85 99 
20 59 
89 20 
8F 4C 
E8 8F 
07 99 
10 03 
C8 4C 
03 4C 
E8 8F 
7A 60 
FO 5F 
8F C9 
C9 2E 
C9 7F 
FI 8D 
8F 60 


20 F9 
00 B1 
83 8C 
D7 8F 
E9 8F 
8F 8D 
8F 8D 
D3 83 
AD OE 

83 EE 
FA 83 
60 18 
OE OD 
10 8F 
AD 11 
8F OE 
18 AD 
D7 8F 
8D D8 
00 8C 
F3 8F 
DO OC 
20 B9 
81 C9 
68 68 
4C 84 
B2 85 

84 C9 
AD F5 
AD E8 
4C BC 
C9 7F 
FI 8D 

89 20 
50 89 
BC 84 
AO 00 
00 02 
20 El 
9C 84 
B4 84 
DO 05 
C9 3E 
C9 2B 
2A DO 
FO 16 

90 03 
C8 4C 
4C 56 


88 4C 
FB FO 
OF 8F 
8D D8 
B1 FB 

10 8F 

11 8F 
AD OD 
8F 8D 
E9 8F 
88 CE 
OE OD 
8F 2E 
6D OD 
BF 6D 
OD 8F 
OD 8F 
AD OE 
8F 60 
DD 8F 
8C F2 
20 B9 
81 3D 
20 DO 
4C 8F 
20 B9 
C9 3A 
3B DO 
8F FO 
8F FO 
84 20 
90 03 
C8 4C 
OA 89 
A9 00 
BD FC 
20 B9 
AC EB 
87 99 
20 B9 
20 B2 
68 68 
FO 5B 
DO 03 
03 4C 
C9 24 
20 04 
44 84 
86 99 


D2 7D 
04 C8 
88 A9 
8F A2 
29 OF 
A9 00 
CA FO 
8F 8D 
11 8F 
AE E9 
OF BF 
8F 2E 
OE 8F 
8F 8D 
OE 8F 
2E OE 
6D D7 
8F 6D 
20 F4 
8C FC 
8F AD 
81 BD 
D3 8F 
08 20 
7A C9 
81 DO 
DO 03 
73 8C 
55 BD 
06 20 
B9 81 
20 04 
6D 84 
20 66 
8D E8 
BF BD 
81 DO 
8F 60 
00 02 
81 FO 
85 AD 
4C 8F 
C9 3C 
EE F2 
39 85 
FO 15 
85 99 
8D F7 
FI 8D 
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8500— C8 4C D1 85 38 E9 7F 8D 
8508- E0 8F A2 FF CE EO 8F FO 
8510- 08 E8 BD DO DO 10 FA 30 
8518- F3 E8 BD DO DO 30 07 99 
8520- FI BD CB 4C 19 85 29 7F 
8528- 60 A9 02 8D F3 8F 4C 44 
8530- 84 A9 01 8D F3 8F 4C 44 
8538- 84 AD F3 8F FO 20 A9 2A 
8540- 99 FI 8D C8 EE DD 8F AD 
8548- F3 8F C9 01 FO 08 A5 FE 
8550- 8D D7 8F 4C 44 84 A5 FD 
8558- 8D D7 8F 4C 44 84 20 44 
8560- 84 AD E7 8F FO OB A9 2A 
8568- 20 D6 81 20 66 89 20 50 
8570- 89 AD DD 8F DO 20 AO 00 
8578- B9 FI 8D C9 20 FO 04 C8 
8580- 4C 78 85 CB 84 FB A9 FI 
8588- 18 65 FB 85 FB A9 8D 69 
8590- 00 85 FC 20 81 83 AD E7 
8598- 8F FO 08 AD F4 8F FO 03 
85AO- 20 AO 87 AD D7 8F 85 FD 
85A8- AD D8 8F 85 FE 68 68 4C 
85B0- 8F 7A 99 FI BD C8 CO FF 
85B8- DO F8 99 FI 8D 20 B9 81 
85C0- 20 B9 81 FO 06 A9 00 8D 
85C8- F7 8F 60 A9 01 8D D4 8F 
85D0- 60 A2 00 20 B9 81 FO 2C 
85D8- C9 3A FO 28 C9 20 FO F3 
85E0- C9 3B FO 20 C9 2C FO OF 
85E8- C9 29 FO OB 9D DE 8E E8 
85F0- 99 FI 8D C8 4C D3 85 8E 
85F8- DE 8F 99 FI 8D C8 20 18 
8600- 86 4C 44 84 BD E8 8F A9 
8608- OO 8E DE 8F 99 FI 8D 20 
8610- 18 86 AD E8 8F 4C 47 84 
8618- A9 00 8D D7 8F 8D D8 8F 
8620- AA OE D7 8F 2E D8 8F OE 
8628- D7 8F 2E D8 8F OE D7 8F 
8630- 2E D8 8F OE D7 8F 2E DB 
8638- 8F BD DE 8E C9 41 90 02 
8640- E9 07 29 OF OD D7 8F 8D 
8648- D7 8F E8 EC DE 8F DO D1 
8650- EE DD 8F A9 01 60 CO 00 
8658- FO OE AE E7 8F DO 09 48 
8660- 98 48 20 1A 7F 68 A8 68 
8668- 99 FI 8D C8 20 B9 81 99 
8670- FI 8D C8 C9 42 DO 68 A9 
8678- 00 8D ED 8F AD E7 8F FO 
8680- 17 8C EA 8F AD F9 8F FO 
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8688— OF 20 59 
8690- 32 89 20 
8698- 20 B9 81 
86A0- 20 DO F5 
86A8- 8D C8 C9 
86B0- 81 DO 03 
86B8- DO 03 4C 
86C0- OC 20 94 
86C8- FC 8F 4C 
86D0- 03 4C AE 
86D8- 09 20 EB 
86E0- 56 8A 99 
86E8- 8F 20 C3 
86F0- 4C AE 86 
86FB- 9D 06 8F 
8700- 75 20 B9 
8708- FO 3F C9 
8710- 84 AE F5 
8718- 49 87 8D 
8720- DO OD AD 
8728- D3 20 EB 
8730- 80 8E 99 
8738- FO 18 C9 
8740- FO 10 9D 
8748- 86 EE EE 
8750- 1A 87 A9 
8758- 85 FC 8C 
8760- AE D7 8F 
8768- 8F A9 00 
8770- CA DO FA 
8778- 8F DO 03 
8780- 8E C9 3A 
8788- 8D F7 8F 
8790- AD E7 8F 
8798- FO 03 4C 
87AO- AD E7 8F 
87A8- 20 1C 82 
87BO- 38 AD D7 
87B8- 8F AD D8 
87C0- 8F A9 00 
87C8- 8F DO 03 
87D0- 8F DO EE 
87D8- 20 1C 82 
87E0- 60 38 E9 
87E8- FF CE EO 
87F0- DO DO 10 
87F8- DO DO 30 
8800- 4C F6 B7 
8808- A2 00 B9 


89 20 OA 89 20 
OA 89 AC EA 8F 
99 FI 8D C8 C9 
20 B9 81 99 FI 
22 DO 45 20 B9 
4C 85 87 C9 3A 
88 87 C9 3B DO 

84 AE F5 8F 8E 

85 87 C9 22 DO 

86 AE E7 BF DO 
88 4C AE 86 4C 
FI 8D AA 8C EA 
88 AC EA 8F C8 
A2 00 8E EE 8F 
E8 AD EE 8F DO 
81 FO 43 C9 3A 
3B DO OC 20 94 
8F 8E FC 8F 4C 
80 8E AD E7 8F 
80 8E C9 20 DO 
88 4C FC 86 AD 
FI BD C8 C9 20 
00 FO 14 C9 3A 
06 8F E8 4C FC 
8F 8D 81 8E 4C 
06 85 FB A9 8F 
EA 8F 20 81 83 
20 C3 88 AC EA 
A2 05 9D 06 BF 
4C FC 86 AD E7 
20 EB 88 AD 81 
FO 03 20 B2 85 
EE FB 8F 68 68 
FO 08 AD F9 BF 
65 7D 4C 8F 7A 
C9 02 DO 01 60 
A2 02 20 A6 81 
8F E5 FD 8D D5 
8F E5 FE 8D D6 
20 D6 81 AD D5 
CE D6 8F CE D5 
AD D6 BF DO E9 
A2 01 20 A2 81 
7F 8D EO 8F A2 
8F FO 08 E8 BD 
FA 30 F3 E8 BD 
07 99 00 02 C8 
29 7F 60 AO 00 
FI 8D C9 2B FO 


408 





Appendix B: LADS Object Code 


8810- 

8818- 

8820- 

8828- 

8830- 

8838- 

8840- 

8848- 

8850- 

8858- 

8860- 

8868 - 

8870- 

8878- 

8880- 

8888 - 

BB90- 

8898- 

B8A0- 

88A8- 

88B0- 

88B8- 

B8C0- 

38C8- 

88D0- 

88D8- 

8BE0- 

88E8- 

B8FO- 

88F8- 

8900- 

8908- 

8910- 

8918- 

8920- 

8928- 

8930- 

8938- 

8940- 

8948- 

8950- 

8958- 

8960- 

8968- 

8970- 

8978- 

8980- 

8988- 

8990- 


04 C8 
8D 20 
BE E8 
06 38 
A9 00 
FB A9 
AD D7 
8F 8D 
DO 04 
SF FO 
20 A2 
89 20 
C3 88 
20 EB 
06 AE 
D7 8F 
DO 07 
60 AD 
8F 20 
C3 88 
FA 8F 
D8 8F 
4C C3 
8F FO 
AD F4 
A2 02 
20 D6 
20 A2 
85 FD 
60 AO 
D6 81 
88 60 
85 89 
8F FO 
AE 89 
20 24 
8F 60 
FE 20 
8A 20 
FE 20 
A9 OD 
60 AE 
24 ED 
85 FB 
88 60 
12 20 
OD 20 
DO Ol 
60 8D 


4C OA 
25 88 
4C 15 
E9 30 
9D DE 
8E 85 
8F 8D 
FI 8F 
20 EB 
11 20 
81 AE 
OA 89 
60 AD 
88 60 
D7 BF 
4C C3 
20 EB 
F9 8F 
13 89 
AD F9 
FO 03 
20 13 
88 8E 
05 AO 
BF FO 
20 A6 
81 20 
81 18 
A9 00 
00 B1 
20 85 
A9 20 
60 8E 
OB 8A 
AE E9 
ED 20 
AD FA 
3D SA 
El 89 
24 ED 
20 D6 
D2 8F 
20 17 
A9 8D 
A9 07 
D6 81 
D6 81 
60 AE 
E8 8F 


88 CB 
BO 12 
88 C9 
38 E9 
8E A9 
FC 20 
FO BF 
60 AD 
88 60 
1C 82 
CE 8F 
AE CE 
E7 8F 
AD F9 
20 13 

88 AD 
88 20 
FO 06 
AE D7 
8F FO 
20 OA 

89 AE 
D6 8F 
00 8A 
16 20 
81 AD 
1C 82 
A9 01 
65 FE 
FB FO 
89 C8 
20 D6 
E9 8F 
20 3D 
8F 60 
AE 89 
8F FO 
A5 FD 
60 A6 
20 El 
81 20 
AD D3 
8A 60 
85 FC 
20 D6 
20 66 
60 AE 
F5 8F 
20 1C 


B9 FI 
9D DE 
3A BO 
DO 60 
DE 85 
81 83 
AD D8 
E7 8F 
AD F9 
A2 01 
20 13 
8F 20 
DO 04 
8F FO 
89 AE 
E7 8F 
EB 88 
AE D7 
8F 20 
OE AD 
89 AE 
D8 8F 
AD F6 
91 FD 
1C 82 
D6 8F 
A2 01 
65 FD 
85 FE 
OA 20 
4C FB 
81 20 
AD FA 
8A 20 
A9 00 
AE E9 
OE A5 
20 3D 
FD A5 
89 60 
85 89 
8F 20 
A9 FI 
20 F9 

81 A9 
89 A9 
E7 8F 
DO 01 

82 A2 
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8998- 04 20 A6 
89A0- D6 81 20 
89A8- A2 81 AD 
89B0- 8F DO 01 
89B8- 01 60 20 
89C0- A6 81 AD 
89C8- E9 8F 20 
89D0- A9 00 AE 
89D8- 20 1C 82 
89E0- 60 AE E7 
89E8- F5 8F DO 
89F0- A2 04 20 
89F8- FO OD A5 
8A00- FD 20 3D 
8A08- FE A6 FD 
BA10- 82 A2 01 
8A18- E7 8F DO 
8A20- DO 01 60 
8A28- 20 A6 81 
8A30- 8F 20 24 
8A38- 01 20 A2 
8A40- A8 B9 El 
8A48- 4A 4A A8 
8A50- 81 8A 20 
8A58- DO 08 20 
8A60- 8F 7A C9 
8A68- 8B 4C 5D 
8A70- 4C 5B 8B 
8A78- Cl 8B C9 
8A80- 8C C9 4F 
8A88- C9 53 DO 
8A90- 48 DO 03 
8A98- 8D 20 59 
8AA0- 32 89 20 
8AA8- A9 B4 85 
8AB0- 20 F9 88 
8AB8- 8B 20 B9 
8AC0- 4C B9 8A 
8AC8- C9 00 FO 
8AD0- 20 04 85 
8AD8- C5 8A 84 
8AE0- 8D FO 07 
8AE8- DE 8A AD 
8AF0- 32 89 20 
8AF8- 20 50 89 
8B00- 20 A2 81 
8B08- 81 20 B2 
8B10- 8F 60 A9 
8B18- 45 20 D6 


81 AD E8 8F 20 
1C 82 A2 01 20 
E8 8F 60 AE E7 
60 AE F5 8F DO 
1C 82 A2 04 20 
FA BF FO 09 AD 
3D 8A 4C D8 89 
E9 8F 20 24 ED 
A2 01 20 A2 81 
8F DO 01 60 AE 
01 60 20 1C 82 
A6 81 AE FA 8F 
FE 20 3D 8A A5 
8A 4C OE 8A A5 
20 24 ED 20 1C 
20 A2 81 60 AE 
01 60 AE F5 8F 
20 1C 82 A2 04 
AD D3 8F AE D2 
ED 20 1C 82 A2 
81 60 48 29 OF 
8D AA 68 4A 4A 
B9 El 8D 20 D6 
D6 81 60 C9 46 
B9 8A 68 68 4C 
45 DO 06 20 12 
8A C9 44 DO 03 
C9 50 DO 03 4C 
4E DO 03 4C 02 
DO 03 4C ED 8B 
03 4C 9A 8C C9 
4C B4 8C 99 FI 
89 20 OA 89 20 
72 B9 20 66 89 
FB A9 8F 85 FC 
20 50 89 4C D4 
81 C9 20 FO 03 
AO 00 20 B9 81 
OE C9 7F 90 03 
99 FI BD C8 4C 
F9 AO OO B9 FI 
99 F3 8E C8 4C 
E7 8F DO 06 20 
OA 89 20 66 89 
20 E5 80 A2 01 
20 B9 81 20 B9 
85 A2 00 8E D4 
2E 20 D6 81 A9 
81 A9 4E 20 D6 
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8B20- 
8B28- 
8B30— 
8B38- 
8B40- 
8B48- 
BB50- 
8B58- 
8B60- 
8B68- 
8B70- 
8B78- 
8B80- 
8B88- 
8B90- 
8B98- 
8BA0- 
8BA8- 
8BB0- 
8BBB- 
8BC0- 
8BC8- 
8BD0— 
BBD8- 
8BE0- 
8BEB- 
BBFO- 
8BF8- 
8C00- 
SC08- 
8C lo¬ 
se 18- 

8C20- 

8C28- 

8C30— 

8C38- 

8C40- 

8C48— 

BC50- 

8C58- 

8C60- 

8C68- 

8C70- 

8C78- 

8C80- 

8C88- 

8C90— 

8C98- 

8CA0- 


B1 A9 
20 D6 
8A AD 
8F EE 
DO 8F 
D1 8F 
85 FD 
OE 84 
20 B9 
20 B9 
03 20 
F3 8E 
8B 84 
89 EE 
02 20 
D6 81 
AD FD 
8F 20 
01 20 
68 A2 
7A AD 

81 EE 
01 20 
07 C9 
20 B2 
D4 8F 
D6 81 
50 89 
D4 8B 
B9 81 
FO 3A 
FO 4C 
4E 20 
81 20 
1C 82 
OD 20 

82 20 
81 4C 
81 A9 
20 D6 
8D F6 
20 D6 
A9 48 
A9 00 
A9 2E 
D6 81 
50 89 
D4 8B 
53 20 


44 20 
81 20 
E7 BF 
E7 8F 
8D FD 
8D FE 
AD D1 
60 AD 
81 99 
81 FO 
04 85 
C8 4C 
F9 20 
F4 8F 
A6 81 
AD D1 
8F 20 
D6 81 
A2 81 
OO 8E 
E7 8F 
F5 8F 
A2 81 
3A FO 
85 68 
4C 8F 
A9 4F 
A9 01 
AD E7 
C9 50 
C9 53 
A9 2E 
D6 81 
50 89 
A2 04 
D6 81 
1C 82 
D4 8B 
4E 20 
81 20 
8F 4C 
81 A9 
20 D6 
8D FA 
20 D6 
A9 53 
A9 00 
A9 2E 
D6 81 


D6 81 
B9 81 
FO 03 
38 A5 
8F A5 
BF AD 
8F 85 
E7 8F 
FI 8D 
14 C9 
99 FI 
68 8B 
66 89 
20 FC 
AD DO 
8F 20 
D6 81 
20 1C 
20 B2 
D4 8F 
FO OE 
20 1C 
20 B9 
06 4C 
68 A2 
7A A9 
20 D6 
8D F6 
8F FO 
FO OC 
FO 6A 
20 D6 
A 9 50 
CE F5 
20 A6 
A9 04 
A2 01 
A9 2E 
D6 81 
50 89 
D4 8B 
4E 20 
81 20 
8F 4C 
81 A9 
20 D6 
8D F9 
20 D6 
20 50 


A9 20 
20 B9 
EE D4 
FD ED 
FE ED 
DO 8F 
FE 20 
FO IE 
AO 00 
7F 90 
8D 99 
4C D4 
20 50 

80 A2 
8F 20 
D6 81 
AD FE 
82 A2 
85 68 
4C 8F 
20 OB 
82 A2 

81 FO 
D4 8B 
00 8E 
2E 20 
81 20 
8F 4C 
CD 20 
C9 4F 
C9 48 
81 A9 
20 D6 
8F 20 
81 A9 
20 35 
20 A2 
20 D6 
A9 4F 
A9 00 
A9 2E 
D6 81 
50 89 
D4 SB 
4E 20 
81 20 
8F 4C 
81 A9 
89 AD 
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8CA8- E7 8F FO 
SCBO- BF 4C D4 
8CB8- 81 A9 48 
BCCO— 89 A9 01 
8CC8- 8B 4C 44 
8CD0- 53 52 52 
8CD8- 42 45 51 
8CE0- 50 42 4E 
8CE8- 4D 50 53 
8CF0- 53 54 58 
8CF8- 59 44 45 
8DOO- 4E 58 49 
8D08- 43 50 58 
8D10- 43 41 44 
8D18- 41 58 54 
8D20- 54 59 41 
8D28- 41 42 52 
8D30- 50 4C 41 
8D38- 45 4F 52 
8D40- 43 42 56 
8D48- 4F 52 4C 
8D50- 43 4C 49 
8D58- 50 50 4C 
BD60- 45 44 53 
8B68- 54 58 53 
8D70- 50 01 05 
8D78- 01 08 05 
8D80- 00 00 02 
8D88- 00 01 00 
BD90- 00 00 08 
8D98- 08 08 03 
8DA0- 00 00 OO 
8DA8- 00 A1 AO 
8DB0- Cl DO A2 
8DB8- 88 CA C6 
BDCO— 38 61 18 
8DC8- 68 OO 30 
8DD0- 50 70 22 
8DD8- 08 28 40 
BDEO- EA 30 31 
8DE8- 37 38 39 
8DF0- 46 OO OO 
8DF8- 00 00 OO 
8E00- 00 00 00 
8E08- OO OO 00 
8E10- 00 OO 00 
8E18- 00 00 00 
8E20- 00 00 00 
8E28- 00 OO 00 


05 A9 01 8D F9 
8B A9 2E 20 D6 
20 D6 81 20 50 
8D FA BF 4C D4 

41 4C 44 59 4A 
54 53 42 43 53 

42 43 43 43 4D 
45 4C 44 58 4A 
54 41 53 54 59 

49 4E 59 44 45 
58 44 45 43 49 
4E 43 43 50 59 
53 42 43 53 45 

43 43 4C 43 54 

41 59 54 58 41 

50 48 41 50 4C 
4B 42 4D 49 42 
4E 44 4F 52 41 

42 49 54 42 56 
53 52 4F 4C 52 
53 52 43 4C 44 
41 53 4C 50 48 
50 52 54 49 53 
45 49 54 53 58 

43 4C 56 4E 4F 
09 00 08 08 08 
06 01 02 02 00 
00 02 04 04 01 
00 00 00 00 00 
08 01 01 01 07 
03 03 00 00 03 
00 00 00 00 00 
20 60 BO FO 90 
4C B1 84 86 C8 
E8 E6 CO EO El 
AA A8 BA 98 48 
10 21 01 41 24 
62 42 D8 58 02 
F8 78 BA 9A BB 
32 33 34 35 36 
41 42 43 44 45 
OO OO OO 00 00 
OO 00 00 00 00 
00 00 00 00 00 
00 00 OO OO 00 
OO 00 00 00 OO 
00 00 00 00 00 
00 00 OO 00 00 
00 00 00 OO 00 
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BE30- 

8E38— 

8E40— 

8E4B- 

BE50- 

8E58- 

8E60- 

8E68- 

8E70- 

8E78- 

BE80- 

8E88— 

8E90— 

8E98- 

BEAO- 

8EA8- 

8EB0— 

8EB8— 

8EC0- 

8ECB- 

8ED0- 

8ED8- 

8EE0- 

8EE8- 

8EF0- 

8EF8- 

8F00— 

8F08- 

8F10- 

8F18- 

BF20- 

8F2B- 

BF30- 

8F38- 

BF40- 

8F48- 

8F50- 

8F58- 

8F60- 

8F68- 

BF70- 

8F78— 

8F80- 

8F88- 

8F90- 

8F98- 

8FA0- 

BFA8- 

BFBO— 


00 00 
00 00 
00 00 
OO 00 
00 OO 
OO 00 
00 00 
00 00 
00 00 
00 00 
00 00 
00 00 
00 OO 
00 00 
00 00 
00 OO 
00 00 
OO OO 
00 00 
OO 00 
00 OO 
00 00 
OO 00 
00 00 
00 00 
00 00 
00 00 
00 OO 
00 OO 

52 54 

53 53 
2D 2D 
2D 2D 
42 52 
55 54 
4E 47 
46 49 
42 45 
ID ID 
4B 45 
4C 00 
3C 3C 
20 44 
52 4F 
3E 3E 
ID ID 
55 50 
44 20 
2D 2D 


00 00 
00 00 
00 00 
00 00 
00 OO 
00 00 
00 00 
00 00 
00 00 
00 00 
00 00 
00 00 
OO 00 
00 OO 
00 00 
00 00 
00 00 
00 00 
00 00 
OO 00 
OO 00 
OO 00 
OO 00 
00 OO 
00 00 
00 00 
00 00 
OO 00 
4E 4F 
20 41 
00 2D 
2D 2D 
2D 2D 
41 4E 
20 4F 
45 00 
4E 45 
4C 00 
ID ID 
44 20 
ID ID 
3C 3C 
49 53 
52 20 
3E 3E 
ID 20 
4C 49 
4C 41 
20 OO 


00 00 
00 00 
00 00 
00 00 
00 00 
00 00 
00 00 
OO 00 
00 00 
00 00 
00 00 
00 00 
00 OO 
00 00 
00 00 
00 00 
00 00 
00 00 
00 00 
00 00 
00 OO 
OO 00 
00 00 
00 00 
00 OO 
00 00 
00 00 
OO 00 
20 53 
44 44 
2D 2D 
2D 2D 
2D 2D 

43 48 
46 20 
55 4E 

44 20 
ID ID 
ID 20 
4C 41 
ID ID 
3C 3C 
4B 20 
3E 3E 
20 00 
2D 2D 
43 41 
42 45 
ID ID 


00 00 
00 00 
00 00 
OO OO 
00 00 
00 00 
OO 00 
00 00 
00 00 
OO 00 
00 00 
00 00 
OO 00 
00 00 
00 00 
00 00 
OO 00 
OO 00 
00 00 
OO 00 
OO OO 
00 OO 
00 00 
OO 00 
OO 00 
00 00 
OO 00 
00 00 
54 41 
52 45 
2D 2D 
2D 2D 
2D 20 
20 4F 
52 41 

44 45 
4C 41 
ID ID 
4E 41 
42 45 
ID 20 
3C 3C 

45 52 
3E 3E 
ID ID 
20 44 
54 45 
4C 20 
ID ID 
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8FB8- ID 20 2D 
BFC0- 54 41 58 
8FC8- 52 20 2D 
8FD0- 00 OO OO 
8FD8- OO 00 OO 
8FE0- 00 OO OO 
8FE8- 00 00 00 
8FF0- OO OO OO 
8FF8- OO OO OO 
9000- 00 01 OO 
9008- 02 2D 93 
9010- 92 00 00 
9018- 01 06 04 
9020- 95 53 94 
9028- 00 00 00 
9030- 00 OO 93 
9038- 01 OO OO 
9040- 00 00 OO 
9048- 93 02 OO 
9050- 00 00 OO 
9058- 92 00 91 
9060- 00 00 OO 
9068- 95 53 94 
9070- 00 01 


2D 20 53 59 4E 
20 45 52 52 4F 
2D 20 00 00 00 
OO 00 00 OO 00 
00 00 OO 00 00 
00 00 OO 00 00 
00 00 OO 00 00 
OO 00 OO OO 00 
00 00 OO OO OO 
01 00 00 01 06 
00 00 OO 93 00 
01 00 01 00 00 
80 95 00 00 53 
00 00 03 01 00 
00 00 OO 00 00 
00 92 OO 91 04 
00 00 00 00 00 
53 95 53 94 53 
00 00 00 00 00 
00 00 OO 93 00 
02 00 00 00 00 
00 00 OO OO 53 
53 93 OO 00 00 
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Machine Language 
Editor for Atari and 
Commodore 


Charles Brannon 

Have you ever typed in a long machine language program? 
Chances are you typed in hundreds of DATA statements, 
numbers, and commas. You're never sure if you've typed 
them in right. So you go back, proofread, try to run the pro¬ 
gram, crash, go back and proofread again, correct a few typing 
errors, run again, crash, recheck your typing—frustrating, isn't 
it? 

Until now, though, that has been the best way to enter 
machine language into your computer. Unless you happen to 
own an assembler and are willing to wrangle with machine 
language on the assembly level, it is much easier to enter a 
BASIC program that reads the DATA statements and POKEs 
the numbers into memory. 

Some of these BASIC loaders, as they are known, use a 
checksum to see if you've typed the numbers correctly. The 
simplest checksum is just the sum of all the numbers in the 
DATA statements. If you make an error, your checksum will 
not match up. Some programmers make the task easier by 
calculating checksums every ten lines or so, and you can 
thereby locate your errors more easily. 

Almost Foolproof 

"MLX" lets you type in long machine language (ML) listings 
with almost foolproof results. Using MLX, you enter the num¬ 
bers from a special list that looks similar to BASIC DATA 
statements. MLX checks your typing on a line-by-line basis. It 
won't let you enter illegal characters when you should be 
typing numbers, such as a lowercase L for a 1 or an O for a 0. 
It won't let you enter numbers greater than 255, which are not 
permitted in ML DATA statements. It will prevent you from 
entering the wrong numbers on the wrong line. In short, MLX 
should make proofreading obsolete! 

In addition, MLX will generate a ready-to-use tape or disk 
file. For the Commodore, you can then use the LOAD corn- 
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mand to read the program into the computer, just as you 
would with any program. Specifically, you enter: 

LOAD "filename", 1,1 (for tape) 
or 

LOAD "filename",8,1 (for disk) 

To start LADS you need to type SYS 11000 (Com¬ 
modore). For complete instructions for the use of LADS, 
please read Appendix A. 

For the Atari, MLX will create a binary file for use with 
DOS. Atari MLX can create a boot disk or tape version of 
LADS, but this is not recommended. 

Getting Started 

To get started, type in and save MLX (VIC owners must have 
at least 8K of extra memory attached). When you are ready to 
enter LADS using MLX, Commodore 64 and VIC owners 
should enter the line below before loading MLX: 

POKE 55,0: POKE 56,42: CLR 
Commodore PET/CBM owners should use: 

POKE 52,0: POKE 53,42: CLR 

When you're ready to type in LADS, the program will ask you 
for several numbers: the starting address and the ending ad¬ 
dress. In addition, the Atari MLX will request a "Run/Init 
Address”. 

Below are the numbers you'll need. 

PET/CBM, VIC and Commodore 64: 

Starting address 11000 
Ending address 15985 

Atari: 

Starting address 32768 
Ending address 39607 
Run/Init address 32768 

The Atari version will then ask you to press either T for a 
boot tape, or D for disk; press D. Next, you'll be asked if you 
want to generate a boot disk or a binary file; press F. 

Next you'll see a prompt. The prompt is the current line 
you are entering from the listing. Each line is six numbers plus 
a checksum. If you enter any of the six numbers wrong, or en- 
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ter the checksum wrong, MLX will ring a buzzer and prompt 
you to reenter the line. If you enter it correctly, a pleasant bell 
tone will sound and you proceed to the next line. 

A Special Editor 

You are not using the normal screen editor with MLX. For 
example, it will accept only numbers as input. If you need to 
make a correction, press the DEL/BACKS key (Atari) or the 
INST/DEL key (Commodore). The entire number is deleted. 
You can press it as many times as necessary back to the start 
of the line. If you enter three-digit numbers as listed, the com¬ 
puter will automatically print the comma and prepare to ac¬ 
cept the next number. If you enter less than three digits (by 
omitting leading zeros), you can press either the comma, space 
bar, or RETURN key to advance to the next number. When 
you get to the checksum value, the Atari MLX will emit a low 
drone to remind you to be careful. The checksum will auto¬ 
matically appear in inverse video; don't worry, it's highlighted 
for emphasis. 

When testing MLX, we've found that it makes entering 
long listings extremely easy. We have tested MLX with people 
lacking any computer background whatsoever. No one here 
has managed to enter a listing wrong with it. 

Done at Last! 

When you finish typing (assuming you type the entire listing 
in one session), you can then save the completed program on 
tape or disk. Follow the screen instructions. (For Atari we sug¬ 
gest that you use the filename AUTORUN.SYS when saving a 
copy of LADS. This way LADS will automatically load and 
run when you boot up your computer.) If you get any errors 
while saving, you probably have a bad disk, or the disk is full, 
or you made a typo when entering the actual MLX program. 
(Remember, it can't check itself!) 

Command Control 

What if you don't want to enter the whole program in one sit¬ 
ting? MLX lets you enter as much as you want, save that por¬ 
tion, and then reload the file from tape or disk when you 
want to continue. MLX recognizes these few commands: 

S: Save 
L: Load 
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N: New Address 
D: Display 

For the Atari, hold down the CTRL key while you type 
the appropriate key. Hold down SHIFT on Commodore ma¬ 
chines to enter a command key. You will jump out of the line 
you've been typing, so it's best to perform these commands at 
a new prompt. Use the Save command to save what you've 
been working on. It will write the tape or disk file as if you've 
finished, but the tape or disk won't work, of course, until you 
finish the typing. Remember what address you stop on. The next 
time you run MLX, answer all the prompts as you did before, 
then insert the disk or tape. When you get to the entry 
prompt, press CTRL-L (Atari) or SHIFT-L (Commodore) to re¬ 
load the file into memory. You'll then use the New Address 
command to resume typing. 

New Address and Display 

Here's how the New Address command works. After you 
press SHIFT-N or CTRL-N, enter the address where you pre¬ 
viously stopped. The prompt will change, and you can then 
continue typing. Always enter a New Address that matches up 
with one of the line numbers in the special listing, or else the 
checksum won't match up. 

You can use the Display command to display a section of 
your typing. After you press CTRL-D or SHIFT-D, enter two 
addresses within the line number range of the listing. You can 
abort the listing by pressing any key. 

Tricky Business 

The special commands may seem a little confusing at first, but 
as you work with MLX, they will become easy and valuable. 
What if you forgot where you stopped typing, for instance? 
Use the Display command to scan memory from the beginning 
to the end of the program. You can stop a listing by hitting 
any key. 

Making Copies 

You can use the MLX Save and Load commands to make 
copies of the completed ML program. Use Load to reload the 
tape or disk, then insert a new tape or disk and use the Save 
command to make a new copy. 
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PET and VIC Users 

The Commodore 64, PET, and VIC data are almost exactly the 
same. There are some lines, though, that are different. Com¬ 
modore 64, PET, and VIC owners should use the Commodore 
64 data (Program B-l) with MLX. VIC owners should sub¬ 
stitute the lines found in Program B-2 (VIC) for the same lines 
in Program B-l. PET owners should type in and save the 64 
data, then make the necessary changes shown in Program B-3a 
and B-3b using the built-in PET monitor. Commodore 64 users 
should use the data in Program B-l as is. 

We hope you will find MLX to be a true labor-saving util¬ 
ity. Since it has been thoroughly tested by entering actual pro¬ 
grams, you can count on it as an aid for generating bug-free 
machine language. And be sure to save MLX; it will be used 
for future all machine language programs in COMPUTE!, 
COMPUTED Gazette, and COMPUTE! Books. 

Program C-l. Commodore 64 MLX 

Refer to Appendix E "How to Type In BASIC Programs" before entering this program. 

100 PRINT"{CLR}g63" ;CHR$(142);CHR$(8);:POKE53281,l 
:POKE53280,1 

101 POKE 788,52:REM DISABLE RUN/STOP 
110 PRINT"{RVS}{39 SPACES}"; 

120 PRINT"{RVS}{14 SPACES}{RIGHT}{OFF}g*3£{RVS} 
{RIGHT} {RIGHT}{2 SPACES}B*l{OFF}g*l£lRVS}£ 

{RVS}{14 SPACES}"; 

130 PRINT"{RVS}{14 SPACES}{RIGHT} gG3 {RIGHT} 

{2 RIGHT} {OFF}£{RVS}£g*31 OFF}g* 1{RVS} 

{14 SPACES}"; 

140 PRINT"{RVS}{41 SPACES}" 

200 PRINT"{2 DOWN}{PUR}{BLK}{9 SPACES}MACHINE LANG 
UAGE EDITOR{5 DOWN}" 

210 PRINT" g53 { 2 UP} STARTING ADDRESS?{8 SPACES} 

{9 LEFT}"; 

215 INPUTS:F=l—F:C$=CHR?(31+119*F) 

220 IFS<2560R(S>40960ANDS<49152)ORS>53247THENGOSUB 
3000:GOTO210 
225 PRINT:PRINT SPRINT 

230 PRINT"g53{2 UPjENDING ADDRESS?{8 SPACES} 

{9 LEFT}";:INPUTE:F=l-F:C$=CHR$(31+119*F) 

240 IFE<2560R(E>40960ANDE<49152)ORE>53247THENGOSUB 
3000:GOTO230 

250 IFE<STHENPRINTC$;"{RVS}ENDING < START 
{2 SPACES}"sGOSUBl000:GOTO 230 
260 PRINT SPRINT SPRINT 

300 PRINT"{CLR}";CHR$(14):AD=SsPOKEV+21,0 
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310 A=1:PRINTRIGHT$("0000"+MID$(STR$(AD),2),5)?"s" 
315 F0RJ=AT06 

320 GOSUB570:1FN=-1THENJ=J+N:GOTO320 
390 IFN=-211THEN 710 
400 IFN=-204THEN 790 

410 IFN=-206THENPRINT:INPUT"{DOWN}ENTER NEW ADDRES 
S"?ZZ 

415 IFN=-206THENIFZZ <SORZZ > ETHENPRINT"{RVS}OUT OF 
{SPACE}RANGE":GOSUB1000sGOTO410 
417 IFN=-206THENAD=ZZ:PRINTsGOTO310 
420 IF N<>-196 THEN 480 

430 PRINT?:INPUT"DISPLAY;FROM";F:PRINT,"TO";sINPUTT 
440 IFF<SORF>EORT<SORT>ETHENPRINT"AT LEAST"fS?" 
{LEFT}, NOT MORE THAN";E:GOTO430 

450 FORI=FTOTSTEP6:PRINT:PRINTRIGHT?("0000"+MID$(S, 
TR$(I),2),5) t ":■ ; 

451 FORK=0TO5!N=PEEK(I+K)s PRINTRIGHT?("00"+MID?(ST 
R$(N),2),3);" 

460 GETA$:IFA? >""THENPRINT:PRINT s GOTO310 
470 NEXTK:PRINTCHR$(20);:NEXTI:PRINT:PRINT:G0T0310 
480 IFN<0 THEN PRINT:GOTO310 
490 A(J)=N:NEXTJ 

500 CKSUM=AD-INT(AD/256)*256:F0RI=1T06:CKSUM=(CKSU 
M+A(I))AND2 5 5 :NEXT 

510 PRINTCHR?(18);sGOSUB570:PRINTCHR$(146); 

511 IFN=-1THENA=6 s G0T0315 

515 PRINTCHR?(20):IFN=CKSUMTHEN530 

520 PRINT:PRINT"LINE ENTERED WRONG : RE-ENTER":PRI 
NT:GOSUB1000:GOTO310 
530 GOSUB2000 

540 F0RI=1T06;POKEAD+I-1,A(I):NEXT:POKE54272,0:POK 
E54273,0 

550 AD=AD+6:IF AD<E THEN 310 
560 GOTO 710 
570 N=0:Z=0 

580 PRINT"g£3"; 

581 GETA?:IFA$=""THEN581 

585 PRINTCHR?(20);:A=ASC(A?):IFA=130RA=440RA=32THE 
N670 

590 IFA>128THENN=-A:RETURN 
600 IFA< > 20 THEN 630 

610 GOSUB690:IFI=1ANDT=44THENN=-1:PRINT"{OFF} 

{LEFT} {LEFT}";:GOTO690 
620 GOTO570 

630 IFA<48ORA>57THEN580 

640 PRINTA?;:N=N*10+A-48 

650 IFN>255 THEN A=20:GOSUB1000:GOTO600 

660 Z=Z+1:IFZ<3THEN580 
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670 IFZ=0THENGOSUB1000sGOTO570 
680 PRINT",";sRETURN 

690 S%=PEEK(209)+256*PEEK(210)+PEEK(211) 

691 ,F0RI=1T03 : T=PEEK ( S%-I) 

695 IFT < >44ANDT < > 58THENPOKES%-1,32:NEXT 
700 PRINTLEFT$("{3 LEFT}",I-1);:RETURN 
710 PRINT" {CLRHRVS}*** SAVE ***{3 DOWN}" 

715 PRINT"{2 DOWN}(PRESS {RVS} RETURN {OFF} ALONE TO 
CANCEL SAVE){DOWN}" 

720 F$="":INPUT"{DOWN} FILENAME";F$:IFF$=""THENPRI 
NTs PRINT:GOTO310 

730 PRINT SPRINT"{2 DOWN}{RVS}t{OFF}APE OR {RVSjD 
{OFFjlSKs (t/d)" 

740 GETA$sIFA$<>"T"ANDA$<>"D"THEN740 
750 DV=l-7*(A$="D")sIFDV=8THENF$="0 s"+F$ SOPEN15,8, 
15,"S"+F$ s CLOSE15 

760 T$=F$ s ZK=PEEK(53)+256 *PEEK(54)-LEN(T$) s POKE782 
,ZK/256 

762 POKE781,ZK-PEEK(782)*256sPOKE780,LEN(T$)sSYS65 
469 

763 POKE780,1s POKE781,DV s POKE782,1sSYS65466 

765 K=S s POKE254,K/256 s POKE253,K-PEEK(254)*256s POKE 
780,253 

766 K=E+1sPOKE782,K/256 sPOKE781,K-PEEK(782)*256 sSY 
S65496 

770 IF(PEEK(783)AND1)OR(191ANDST)THEN780 
775 PRINT"{DOWN}DONE.{DOWN}"SGOTO310 

780 PRINT"{DOWN}ERROR ON SAVE.{2 SPACES}TRY AGAIN. 
"sIFDV=lTHEN720 

781 OPEN!5,8,15s INPUT#15,El $,E2$ s PRINTE1$;E2$ sCLOS 
E15 s GOTO720 

790 PRINT"{CLR}{RVS}*** LOAD ***{2 DOWN}" 

795 PRINT"{2 DOWN}(PRESS {RVS} RETURN {OFF} ALONE TO 
CANCEL LOAD)" 

800 F$=""sINPUT"{2 DOWN} FILENAME";F$sIFF$=""THENP 
RINT s GOTO310 

810 PRINT SPRINT"{2 DOWN}{RVS}T{OFF}APE OR {RVS}D 
{OFFjlSKs (T/D)" 

820 GETA$ sIFA$<>"T"ANDA$<>"D"THEN820 
830 DV=1—7*(A$="D")sIFDV=8THENF$="0s"+F$ 

840 T$=F$ s ZK=PEEK(53)+256*PEEK(54)—LEN(T$)s POKE782 
,ZK/256 

841 POKE781,ZK-PEEK(782)* 256 s POKE780,LEN(T$)s SYS65 
469 

845 POKE780,1s POKE781,DV s POKE782,1s SYS65466 
850 POKE780,0 s SYS65493 

860 IF(PEEK(783)AND1)OR(191ANDST)THEN870 
865 PRINT"{DOWN}DONE."SGOTO310 
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870 PRINT"{DOWN}ERROR ON LOAD.{2 SPACESjTRY AGAIN. 
{DOWN}":IFDV=1THEN800 

880 OPEN15,8,15:INPUT#15,El$,E2$sPRINTEl?;E2$:CLOS 
E15 s GOTO800 

1000 REM BUZZER 

1001 POKE54296,15 s POKE54277,45:POKE54278,165 

1002 POKE54276,33:POKE 54273,6:POKE54272,5 

1003 FORT=1TO200 sNEXTs POKE54276,32:POKE54273,0:POK 
E54272,0 s RETURN 

2000 REM BELL SOUND 

2001 POKE54296,15:POKE54277,0:POKE54278,247 

2002 POKE 54276,17s POKE54273,40:POKE54272,0 

2003 FORT=1TO100:NEXT s POKE54276,16 s RETURN 

3000 PRINTC$;"{RVSjNOT ZERO PAGE OR ROM"SGOTO1000 


Program C-2. VIC MLX 

Refer to Appendix E "How to Type In BASIC Programs" before entering this program. 

100 PRINT"{CLR}{PUR}"?CHR$(142);CHR$(8); 

101 POKE 788,194 s REM DISABLE RUN/STOP 
110 PRINT"{RVS}{14 SPACES}" 

120 PRINT"{RVS} {RIGHT}{OFF}E*^£{RVS}{RIGHT} 

{RIGHT}{2 SPACES}{OFF}g*T£{RVS}£{RVS} " 

130 PRINT"{RVS} {RIGHT} iGifRIGHT} {2 RIGHT} {OFF} 
£{RVS}£E * 1{OFF}{RVS} " 

140 PRINT "TRVS} {14 SPACES}" 

200 PRINT"{2 DOWN}{PUR}{BLK}A FAILSAFE MACHINE"sPR 
INT"LANGUAGE EDITOR{5 DOWN}" 

210 PRINT"{BLK}{3 UP}STARTING ADDRESS"5 INPUTSsF=l- 
FsC$=CHR$(31+119*F) 

220 IFS<2560RS>32767THENGOSUB3000 sGOTO210 
225 PRINT SPRINT SPRINT SPRINT 

230 PRINT"{BLK}{3 UPjENDING ADDRESS"sINPUTEsF=l-Fs 
C$=CHR$(31+119*F) 

240 IFE<256ORE>32767THENGOSUB3000 sGOTO230 
250 IFE<STHENPRINTC$;"{RVS}ENDING < START 
{2 SPACES}"sGOSUB1000sGOTO 230 
260 PRINT SPRINT SPRINT 
300 PRINT"{CLR}";CHR$(14):AD=S 

310 PRINTRIGHT?("0000"+MID$(STR$(AD),2),5)?"s";sFO 
RJ=1T06 

320 GOSUB570 sIFN=-1THENJ=J+Ns GOTO320 
390 IFN=-211THEN 710 
400 IFN=-204THEN 790 

410 IFN=-206THENPRINT sINPUT"{DOWN}ENTER NEW ADDRES 
S" ?ZZ 

415 IFN=—206THENIFZZ <SORZZ >ETHENPRINT"{RVS}OUT OF 
{SPACE}RANGE"sGOSUB1000sGOTO410 
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417 IFN=-206THENAD=ZZ:PRINT:GOTO310 
420 IF NO-196 THEN 480 

430 PRINT:INPUT"DISPLAY:FROM"?F:PRINT,"TO"? sINPUTT 
440 IFF<SORF>EORT<SORT>ETHENPRINT"AT LEAST"?S?" 

{LEFT}, NOT MORE THAN";E sGOTO430 
450 FORI=FTOTSTEP6:PRINT:PRINTRIGHT?("0000"+MID$(S 
TR$(I),2),5);":"? 

455 FORK=0TO5:N=PEEK(I+K):IFK=3THENPRINTSPC(10); 
457 PRINTRIGHT$("00"+MID$(STR$(N),2),3)?","; 

460 GETA$:IFA$>""THENPRINT:PRINT:GOTO310 
470 NEXTK:PRINTCHR$(20);:NEXTI:PRINT:PRINT:GOTO310 
480 IFN<0 THEN PRINT:GOTO310 
490 A(J)=N:NEXTJ 

500 CKSUM=AD—INT(AD/256)*256:FORI=lT06:CKSUM=(CKSU 
M+A(I))AND255:NEXT 

510 PRINTCHR$(18);:GOSUB570:PRINTCHR$(20) 

515 IFN=CKSUMTHEN530 

520 PRINT:PRINT"LINE ENTERED WRONG":PRINT"RE-ENTER 
":PRINT:GOSUB1000:GOTO310 
530 GOSUB2000 

540 F0RI=1T06:POKEAD+I—1,A(I):NEXT 
550 AD=AD+6:IF AD<E THEN 310 
560 GOTO 710 
570 N=0:Z=0 

580 PRINT"i+3"; 

581 GETA$:IFA$=""THEN581 

585 PRINTCHR?(20);:A=ASC(A$):IFA=130RA=440RA=32THE 
N670 

590 IFA>128THENN=-A:RETURN 
600 IFA<>20 THEN 630 

610 GOSUB690:IFI=1ANDT=44THENN=-1:PRINT"{LEFT} 
{LEFT}";:GOTO690 
620 GOTO570 

630 IFA<48ORA>57THEN580 

640 PRINTA$;:N=N*10+A-48 

650 IFN>255 THEN A=20:GOSUB1000:GOTO600 

660 Z=Z+1:IFZ<3THEN580 

670 IFZ=0THENGOSUB1000:GOTO570 

680 PRINT","?:RETURN 

690 S%=PEEK{209)+256*PEEK(210)+PEEK(211) 

692 F0RI=1T03:T=PEEK(S%—I) 

695 IFT< > 44ANDT < > 58THENPOKES%-1,32:NEXT 
700 PRINTLEFT$("{3 LEFT}",1-1);:RETURN 
710 PRINT" {CLR} {RVS}*** SAVE ***{3 DOWN}" 

720 INPUT"{DOWN} FILENAME";F$ 

730 PRINT:PRINT"{2 DOWN}{RVS}t{OFF}APE OR {RVS}D 
{OFF}ISK: (T/D)" 
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740 GETA$:IFA$ < >"T"ANDA$ < >"D"THEN740 
750 DV=1-7*(A$="D"):IFDV=8THENF$="0:"+F$ 

760 T$=F$:ZK=PEEK(53)+256*PEEK(54)-LEN(T$):POKE782 
,ZK/256 

762 POKE781,ZK-PEEK(782)*256:POKE780,LEN(T$):SYS65 
469 

763 POKE780,1:POKE781 f DV:POKE782,1:SYS65466 

765 POKE254,S/256:POKE253,S-PEEK(254)*256 s POKE780, 
253 

766 POKE782,E/256:POKE781,E-PEEK(782)*256sSYS65496 
770 IF(PEEK(783)AND1)OR(ST AND191)THEN780 

775 PRINT"{DOWN}DONE.END 

780 PRINT”{DOWN}ERROR ON SAVE.{2 SPACES}TRY AGAIN. 
":IFDV=1THEN720 

781 OPEN15,8,15:INPUT#15,El$,E2$:PRINTE1$;E2$:CLOS 
E15:GOTO720 

782 GOTO720 

790 PRINT"{CLR}{RVS}*** LOAD ***{2 DOWN}" 

800 INPUT"(2 DOWN} FILENAME";F$ 

810 PRINT:PRINT"{2 DOWN}{RVS}T{OFF}APE OR {RVS}D 
{OFFjlSK: (T/D) m 

820 GETA$:IFA$ < >"T"ANDA$< >"D"THEN820 
830 DV=1-7*(A$="D"):IFDV=8THENF$="0:"+F$ 

840 T$=F$:ZK=PEEK(53)+256*PEEK(54)-LEN(T$):POKE782 
.ZK/256 

841 POKE781,ZK-PEEK(782)* 256:POKE780,LEN(T$):SYS65 
469 

845 POKE780,1:POKE781,DV:POKE782,1:SYS65466 
850 POKE780,0:SYS65493 

860 IF(PEEK(783)AND1)OR(ST AND191)THEN870 
865 PRINT"{DOWN}DONE.":GOTO310 

870 PRINT"{DOWN}ERROR ON LOAD.{2 SPACES}TRY AGAIN. 
{DOWN}":IFDV=1THEN800 

880 OPEN15,8,15:INPUT#15,El$,E2$:PRINTE1$;E2$:CLOS 
El5:GOTO800 

1000 REM BUZZER 

1001 POKE36878,15:POKE36874,190 

1002 FORW=1TO300:NEXTW 

1003 POKE36878,0:POKE36874,0:RETURN 

2000 REM BELL SOUND 

2001 FORW=15TO0STEP-1:POKE36878,W:POKE36876,240:NE 
XTW 

2002 POKE36876,0:RETURN 

3000 PRINTC$;"{RVSjNOT ZERO PAGE OR ROM":GOTO1000 
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Program C-3. PET MLX 

Refer to Appendix E “How to Type In BASIC Programs" before entering this program. 
100 PRINT"{CLR}";CHR$(142)sPOKE53,43:CLR 
110 PRINT"{RVS}{38 SPACES}" 

120 PRINT"{RVS}(18 SPACES}MLX{17 SPACES}" 

140 PRINT"{RVS}(38 SPACES!" 

200 PRINT"(2 DOWN} MACHINE LANGUAGE EDITOR PET VER 
SION(5 DOWN}" 

210 PRINT"(2 UP}STARTING ADDRESS?{8 SPACES} 

(9 LEFT}"; 

215 INPUTS 

220 IFS < 2560RS > 32767THENGOSUB3000:GOTO210 
225 PRINT;PRINT:PRINT 

230 PRINT"(2 UP}ENDING ADDRESS?(8 SPACES}(9 LEFT}" 

;:INPUTE 

240 IFE<2560RE> 32767THENGOSUB3000:GOTO230 
250 IFE<STHENPRINTC$;"{RVS}ENDING < START 
(2 SPACES}":GOSUB1000sGOTO 230 
260 PRINT;PRINT:PRINT 
300 PRINT"{CLR}";CHR$(14):AD=S 

310 A=1:PRINTRIGHT$("0000"+MID$(STR$(AD),2),5)?":" 
315 F0RJ=AT06 

320 GOSUB570:1FN=-1THENJ=J+N:GOTO320 
390 IFN=-211THEN 710 
400 IFN=-204THEN 790 

410 IFN=-206THENPRINT:INPUT"(DOWN}ENTER NEW ADDRES 
S"?ZZ 

415 IFN=—206THENIFZZ <SORZZ >ETHENPRINT"{RVS}OUT OF 
{SPACE}RANGE":GOSUB1000:GOTO410 
417 IFN=-206THENAD=ZZ:PRINT:GOTO310 
420 IF NO-196 THEN 480 

430 PRINT:INPUT"DISPLAY:FROM";F;PRINT,"TO";:INPUTT 
440 IFF<SORF>EORT<SORT>ETHENPRINT"AT LEAST";S;" 
{LEFT}, NOT MORE THAN";E:GOTO430 

450 FORI=FTOTSTEP6:PRINT:PRINTRIGHT$("0000"+MID$(S 
TR$(I),2),5);":"; 

451 FORK=0TO5:N=PEEK{I+K):PRINTRIGHT$("00"+MID$(ST 
R$(N),2),3)"; 

460 GETA$:IFA$>""THENPRINT:PRINT:GOTO310 
470 NEXTK:PRINTCHR$(20);:NEXTI:PRINT:PRINT:GOTO310 
480 IFN<0 THEN PRINT:GOTO310 
490 A(J)=N:NEXTJ 

500 CKSUM=AD-INT(AD/256)*256:F0RI=1T06:CKSUM=(CKSU 
M+A(I))AND255:NEXT 

510 PRINTCHR?{18);:GOSUB570:PRINTCHR$(146); 

511 IFN=-1THENA=6:G0T0315 

515 PRINTCHR?(20):IFN=CKSUMTHEN530 
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520 PRINT SPRINT"LINE ENTERED WRONG : RE-ENTER":PRI 
NT:GOSUB1000:GOTO310 
530 GOSUB2000 

540 FORI=1T06:POKEAD+I—1, A (I)sNEXT 
550 AD=AD+6 sIF AD<E THEN 310 
560 GOTO 710 
570 N=0:Z=0 

580 PRINTCHR$(168); 

581 GETA$:IFA$=""THEN581 

585 PRINTCHR?(20);:A=ASC(A$):IFA=130RA=440RA=32THE 
N670 

590 IFA>128THENN=-A:RETURN 
600 IFAO20 THEN 630 

610 GOSUB690:IFI=1ANDT=44THENN=-1SPRINT"{OFF} 

{LEFT} {LEFT}";s GOTO690 
620 GOTO570 

630 IFA<480RA>57THEN580 

640 PRINTA$;sN=N*10+A-48 

650 IFN>255 THEN A=20sGOSUB1000sGOTO600 

660 Z=Z+1 -s IFZ <3THEN580 

670 IFZ=0THENGOSUB1000SGOTO570 

680 PRINT",";s RETURN 

690 SS=PEEK(196)+256*PEEK(197)+PEEK(198) 

691 F0RI=1T03 sT=PEEK(SS-I) 

695 IFT< >44ANDT < > 58THENPOKESS-1,32sNEXT 
700 PRINTLEFT$("{3 LEFT}", 1-1);sRETURN 
710 PRINT"{CLR}{RVS}*** SAVE ***{3 DOWN}" 

715 PRINT"{2 DOWN}(PRESS {RVS}RETURN{OFF} ALONE TO 
CANCEL SAVE){DOWN}" 

720 F$=""sINPUT"{DOWN} FILENAME? *{3 LEFT}";F$sIFF 
$ = "*"THENPRINT s PRINT:GOTO310 
730 PRINT SPRINT"{2 DOWN}{RVS}T{OFF}APE OR {RVS}D 
{OFF}ISK s (T/D)" 

740 G ETA$sIFA$ < >"T"ANDA$< >"D"THEN 7 40 
750 DV=l-7 *(A$="D")sIFDV=8THENF$="0 s"+F$ sOPENl5,8, 
15,"S"+F$ s CLOSE15 

760 T$=F$s ZK=PEEK(50)+2 56 *PEEK(51)-LEN(T$)s POKE219 
,ZK/256 

762 POKE218,ZK-PEEK(219)*256 s POKE209,LEN(T$) 

763 POKE210,1s POKE211,0s POKE212,DV 

765 K=SsPOKE252,K/256:POKE251,K-PEEK(252)*256 

766 K=E+1s POKE202,K/256 s POKE201,K-PEEK(202)*256 s SY 
S63203 sREM 63140 FOR 3.0 

770 IF(191ANDST)THEN780 

775 PRINT"{DOWN}DONE.{DOWN}"sGOTO310 

780 PRINT"{DOWN}ERROR ON SAVE.{2 SPACES}TRY AGAIN. 
"sIFDV=lTHEN720 

781 OPEN15,8,15 sINPUT#15,El$,E2$ s PRINTEl?; E2$sCLOS 
El5 sGOTO720 
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790 PRINT"{CLR}{RVS}*** LOAD ***{2 DOWN}" 

795 PRINT"{2 DOWN}(PRESS {RVS}RETURN{OFF} ALONE TO 
CANCEL LOAD)" 

800 F$="":INPUT"{2 DOWN} FILENAME? *{3 LEFT}";F$:I 
FF$="*"THENPRINT:PRINT s GOTO310 
810 PRINT SPRINT"{2 DOWN}{RVS}T{OFF}APE OR {RVS}D 
{OFF}ISK: (T/D)" 

820 GETA$ sIFA$ < >"T"ANDA$ < >"D"THEN820 
830 DV=1-7*(A$="D"):IFDV=8THENF$="0:"+F$ 

840 T$=F$:ZK=PEEK(50)+256*PEEK(51)-LEN(T$):POKE219 
,ZK/256 

841 POKE218,ZK-PEEK(219)* 256:POKE209,LEN(T$) 

845 POKE210,1:POKE211,0:POKE212,DV 

850 POKE157,0:SYS62294:REM USE 62242 FOR UPGRADE P 
ET 3.0 

860 IF(191ANDST)THEN870 

865 PRINT"{DOWNjDONE.":GOTO310 

870 PRINT"{DOWN}ERROR ON LOAD.{2 SPACES}TRY AGAIN. 
{DOWN}":IFDV=1THEN800 

880 OPEN15,8,15 sINPUT#15,El$,E2$ :PRINTE1$;E2$sCLOS 
E15:GOTO800 

1000 REM BUZZER 

1001 POKE59467,16:POKE59466,129:POKE59464,255 
1003 FORT=200TO250:POKE59466,T sNEXT:POKE59467, 0: RE 

TURN 

2000 REM BELL SOUND 

2001 POKE59467,16 sPOKE59466,51 :POKE59464,100 
2003 FORT=1TO50 sNEXT:POKE59467,0:RETURN 

3000 PRINT"{RVS}NOT ZERO PAGE, SCREEN OR ROM"sGOTO 
1000 


Program C-4. Atari MLX 

Refer to Appendix E "How to Type In BASIC Programs" before entering this program. 


100 
1 10 
120 

130 

140 

150 

160 

170 


GRAPHICS 0:DL = PEEK<560)+256*PEEK <561)+4: 
POKE DL-1,71 SPOKE DL + 2,6 

POSITION 8 , 0 :? " MLX ": POS I TION 23,0:? “ fF 


":POKE 710,0:? 

? "Starting ftddress";:INPUT BEG:? " End 
ing Address";:INPUT FIN:? "Run/Init Addr 
ess";:INPUT STARTADR 

DIM A < 6) ,BUFFER*<FIN —BEG+127) ,T* <20) , F* < 
20) ,CIO* <7) ,SECTOR* <128) ,DSKINV* <6) 

OPEN #1,4,0,"Ks"s? :? ," Da p e or Ei si;: " ; 
BUFFER* = CHR* <0) :BUFFER*(FIN-BEG + 30)=BUFF 
ER*:BUFFER* <2)=BUFFER*:SECTOR* = BUFFER* 
ADDR=BEG:CIO*="hhh":CIO*<4)=CHR* <170) :Cl 
O* <5)="LV":CIO* <7)=CHR* <228) 

GET #1,MEDIA: IF MEDIA084 AND MEDIAO 68 
THEN 170 
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180 ? CHR*(MEDIA):? :IF MED I AOASC ( " T " ) THEN 
BUFFER$="":GOTO 250 

190 BES = BEG —24:BUFFER$ = CHRt(0) :BUFFER* <2)=CH 
R* < (FIN —BEG+127)/128) 

200 H=INT(BEG/256):L=BEG-H*256:BUFFER*(3)=CH 
R*(L):BUFFER*(4)= CHR*(H) 

210 PINIT=BEG+8:H=INT(PINIT/256):L=PINIT-H*2 
56:BUFFER*(5)=CHR*(L):BUFFER*(6)=CHR*(H) 
220 FOR 1=7 TO 24:READ A:BUFFER*(I)=CHR*(A): 
NEXT I:DAT A 24,96,169,60,141,2,211,169,0 
,133,10,169,0,133,11,76,0,0 
230 H=INT(STARTADR/256):L=STARTADR-H*256:BUF 
FER*(15)=CHR*(L):BUFFER*(19)=CHR*(H) 

240 BUFFER*(23)=CHR*(L):BUFFER*(24)=CHR*(H) 

250 IF MED I A< >ASC CD") THEN 360 

260 ? :? "Boot Eisk or Binary [ai 1 e : " ; 

270 GET # 1 ,DTYPE:IF DTYPE<>68 AND DTYPEO70 
THEN 270 

280 7 CHR*(DTYPE):IF DTYPE=70 THEN 360 
290 BEG=BEG—30:BUFFER*=CHR*(0):BUFFER*(2)=CH 
R*((FIN—BEG+127)/128) 

300 H=I NT(BEG/256) :L=BEG-H*256:BUFFER*(3)=CH 
R*(L):BUFFER*(4)=CHR*(H) 

310 PINIT=STARTADR:H=INT(PINIT/256):L=PINIT- 
H * 256:BUFFER*(5)=CHR*(L) :BUFFER*(6)= CHR* 

(H) 

320 RESTORE 330:FOR 1=7 TO 30:READ A:BUFFER* 

(I) =CHR*(A):NEXT I 

330 DATA 169,0,141,231,2,133,14,169,0,141,23 
2,2,133,15,169,0,133,10,169,0,133,11,24, 
96 

340 H=INT(BEG/256):L=BEG-H*256:BUFFER*(8)=CH 
R*(L):BUFFER*(15)=CHR*(H) 

350 H=INT(STARTADR/256):L=STARTADR-H*256:BUF 
FER*(22)=CHR*(L):BUFFER*(26)=CHR*(H) 

360 GRAPHICS 0:POKE 712,10:POKE 710,10:POKE 
709,2 

370 7 ADDRFOR J=1 TO 6 

380 GOSUB 570:IF N=-l THEN J=J-l:GOTO 380 
390 IF N= — 19 THEN 720 

400 IF N=—12 THEN LET READ=1:GOTO 720 
410 TRAP 410:IF N=-14 THEN ? :? "New Address 

";:INPUT ADDR:? :GOTO 370 
420 TRAP 32767: IF NO-4 THEN 480 
430 TRAP 430:? :? “Display:From";:INPUT F:? 

,"To";:INPUT T:TRAP 32767 
440 IF F < B E G OR F >FIN OR T < BEG OR T >FIN OR T 
< F THEN ? CHR*(253) ; "At least ";BEG; ", N 
ot More Than ";FIN:GOTO 430 
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450 FOR I=F TO T STEP 6:? :? I:":";:FOR K=0 
TO 5:N=PEEK(ADR(BUFFER*)+I+K-BEG):Tt="00 
0" : T*(4-LEN(STR*(N)>)= STR*(N) 

460 IF PEEK(764)<255 THEN GET #l,A:POP :POP 
:? :GOTO 370 

470 ? T*;”,";:NEXT Ks? CHR*(126);:NEXT Is? : 
? :GOTO 370 

480 IF N< 0 THEN ? sGOTO 370 
490 A (J )=N:NE X T J 

500 CKSUM=ADDR-INT(ADDR/256)*256:FOR 1=1 TO 
6:CKSUM=CKSUM+A(I):CKSUM=CKSUM-256*(CKSU 
M >255) :NEXT I 

510 RF=128:SOUND 0,200,12,8:GOSUB 570:SOUND 
0,0,0,0:RF=0:? CHR*(126) 

520 IF NOCKSUM THEN ? :? "Incorrect" ; CHRt (2 
53);:? :GOTO 370 

530 FOR W=15 TO 0 STEP -IsSOUND 0,50,10,W:NE 
XT W 

540 FOR 1=1 TO 6:POKE ADR(BUFFER*)+ADDR-BEG+ 
I—1,A(I):NEXT I 

550 ADDR=ADDR+6:IF ADDR<=FIN THEN 370 
560 GOTO 710 
570 N=0:Z=0 

580 GET #1,A:IF A=155 OR A=44 OR A=32 THEN 6 
70 

590 IF A< 32 THEN N = -AsRETURN 
600 IF A< >126 THEN 630 

610 GOSUB 690:IF 1=1 AND T=44 THEN N=-l:7 CH 
R*(126);:GOTO 690 
620 GOTO 570 

630 IF A< 48 OR A>57 THEN 580 
640 ? CHR*(A+RF);:N=N*10+A-4S 

650 IF N >255 THEN ? CHR*(253) : :A=126:GOTO 60 
0 

660 Z = Z + 1 : IF Z< 3 THEN 580 

670 IF Z=0 THEN ? CHR*(253);:GOTO 570 

680 ? " , " ; :RETURN 

690 POKE 752, 1 :FOR 1=1 TO 3:? CHR*(30);:GET 
#6,T:IF T < >44 AND T<>58 THEN ? CHR*(A);: 
NEXT I 

700 POKE 752,0:? " ";CHR*(126);:RETURN 

710 GRAPHICS 0:POKE 710,26:POKE 712,26:P0KE 
709.2 

720 IF MEDIA=ASC(”T“) THEN 890 
730 REM ■»>«« 

740 IF READ THEN ? :? "Load File”:? 

750 IF DTYPE<>ASC(”F") THEN 1040 

760 ? :? "Enter AUTORUN.SYS for automatic us 

e”:? :? "Enter tilename”:INPUT T* 
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770 Ft=T$:IF LEN(T*)>2 THEN IF T$(1,2)<>"D:” 
THEN F*="D:":Ft<3)= T* 

7B0 TRAP 870 :CLOSE #2:0PEN #2,8-4*READ,0,F*: 
? :? "War king..." 

790 IF READ THEN FOR 1=1 TO 6:GET #2,A:NEXT 
I:GOTO 820 

800 PUT #2,255:PUT #2,255 

810 H=INT<BEG/256>:L=BEG-H*256:PUT #2,L:PUT 
#2,H:H=INT(FIN/256):L=FIN-H*256:PUT #2,L 
:PUT # 2,H 

820 GOSUB 970:IF PEEK(195)>1 THEN 870 
830 IF ST ART ADR = 0 OR READ THEN 850 
840 PUT #2,224:PUT #2,2:PUT #2,225:PUT #2,2: 
H=I NT(STARTADR/256) :L = STARTADR-H*256:PUT 
#2,L:PUT #2,H 

850 TRAP 32767:CLOSE #2:7 "Finished.":IF REA 
D THEN 7 :? :LET READ=0:GOTO 360 
860 END 

870 7 "Error ”;PEEK ( 195) ; " trying to access" 
:? Ft:CLOSE #2:7 :GOTO 760 
880 REN ■ M'iT'U ■ 

890 IF READ THEN 7 :7 "Read Tape" 

900 7 :? :? "Insert, Rewind Tape.":? "Press 

PLAY “ ; : I F NOT READ THEN 7 ”& RECORD" 
910 7 :? "Press when ready:”; 

920 TRAP 960:CLOSE #2:OPEN #2,8-4*READ,128," 
C:":? :? "Working..." 

930 GOSUB 970:IF PEEK(195)>1 THEN 960 

940 CLOSE #2:TRAP 32767:7 "Finished.":? :? : 

IF READ THEN LET READ=0:GOTO 360 
950 END 

960 7 :? "Error ";PEEK(195) ; " when reading/w 
riting boot tape":? :CLOSE #2:GOTO 890 


980 X = 32:REM File#2,$20 

990 ICCOM=834:ICBADR=B36:ICBLEN=840:ICSTAT=8 
35 

1000 H=I NT (ADR(BUFFERS)/256) :L = ADR(BUFFER*)- 
H * 256:POKE ICBADR + X,L:POKE ICBADR + X + l.H 
1010 L=FIN—BEG+1:H=INT(L/256):L=L-H*256:POKE 
ICBLEN+X,L:POKE ICBLEN+X+l.H 
1020 POKE ICCOM + X, 11-4*READ:A = USR(ADR (CIOS) , 
X ) 

1030 POKE 195,PEEK(ICSTAT):RETURN 
1040 REN 

1050 IF READ THEN 1100 

1060 7 :? "Format Disk In Drive 1? (Y/N):"; 
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1070 BET #1,A:IF A< >78 AND A<>89 THEN 1070 
1080 7 CHR$( A):IF A = 78 THEN 1100 
1090 ? s? "Formatting.sXIO 254,#2.0,0,"D: 
"Format Complete 1 '!? 

1100 NR=INT((FIN—BEG+127)/128):BUFFER*(FIN-B 
EG+2)=CHR*(0):IF READ THEN 7 "Reading.. 
.":GOTO 1120 
1110 7 "Writing..." 

1120 FOR 1=1 TO NR:S=I 

1130 IF READ THEN GOSUB 1220:BUFFER*(I*128—1 
27)=SECTOR*:GOTO 1160 
1140 SECTOR* = BUFFER*<I * 128-127) 

1150 GOSUB 1220 

1160 IF PEEK(DSTATS)<>1 THEN 1200 
1170 NEXT I 

1180 IF NOT READ THEN END 
1190 7 :? :LET READ=0:GOTO 360 

1200 7 "Error on disk access.":? "May need t 

ormatting.":GOTO 1040 
1210 REM 

1220 REM it.3 :»:T^ *Mdll ;T.Hi * 4 :1 a 

1230 REM Drive ONE 

1240 REM Pass butter in SECTOR* 

1250 REM sector # in variable S 
1260 REM READ=1 tor read, 

1270 REM READ=0 tor write 
1280 BASE=3*256 

1290 DUNIT=BASE+1:DC0MND=BASE+2:DSTATS=BASE+ 

3 

1300 DBUFL0=BASE+4:DBUFHI=BASE+5 
1310 DBYTLO=BASE+8:DBYTHI=BASE+9 
1320 DAUX1=BASE+10:DAUX2=BASE+11 
1330 REM DIM DSKINV*(4) 

1340 DSKINV*="hLS":DSKINV*(4)=CHR*(228) 

1350 POKE DUNIT,1:A=ADR(SECTOR*):H=INT(A/256 
) :L = A —256 * H 
1360 POKE DBUFHI.H 
1370 POKE DBUFLO,L 
1380 POKE DCOMND.87—5*READ 

1390 POKE DAUX2,INT(S/256):POKE DAUX1.S-PEEK 
(DAUX2)*256 

1400 A=USR(ADR(DSKINV*)) 

1410 RETURN 
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A Library of 
Subroutines 

Here is a collection of techniques you'll need to use in many 
of your ML programs. Those techniques which are not inher¬ 
ently easy to understand are followed by an explanation. 

Increment and Decrement Double* 
Byte Numbers 

You'll often want to raise or lower a number by 1. To in¬ 
crement a number, you add 1 to it: Incrementing 5 results in 6. 
Decrement lowers a number by 1. Single-byte numbers are 
easy; you just use INC or DEC. But you'll often want to in¬ 
crement two-byte numbers which hold addresses, game 
scores, pointers, or some other number which requires two 
bytes. Two bytes, ganged together and seen as a single num¬ 
ber, can hold values from 0 ($0000) up to 65535 ($FFFF). 
Here's how to raise a two-byte number by 1, to increment it: 

(Let's assume that the number you want to increment or dec¬ 
rement is located in addresses $0605 and $0606, and the ML 
program segment performing the action is located at $5000.) 

5000 INCREMENT INC $0605; raise the low byte 
5003 BNE GOFORTH; if not zero, leave high byte alone 
5005 INC $0606; raise high byte 
5008 GOFORTH ... continue with program 

The trick in this routine is the BNE. If the low byte isn't 
raised to zero (from 255), we don't need to add a "carry" to 
the high byte, so we jump over it. However, if the low byte 
does turn into a zero, the high byte must then be raised. This 
is similar to the way an ordinary decimal increment creates a 
carry when you add 1 to 9 (or 99 or 999). The lower number 
turns to zero, and the next column over is raised by one. 

To double decrement, you need an extra step. The reason 
it's more complicated is that the 6502 chip has no way to test 
if you've crossed over to $FF, down from $00. BNE and BEQ 
will test if something is zero, but nothing tests for $FF. (The N 
flag is turned on when you go from $00 to $FF, and BPL or 
BMI could test it.) The problem with it, though, is that the N 
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flag isn't limited to sensing $FF. It is sensitive to any number 
higher than 127 decimal ($7F). 

So, here's the way to handle double-deckers: 

5000 LDA $0605; load in the low byte (affecting the zero flag) 

5003 BNE FIXLOWBYTE; if it's not zero, lower it, skipping high 

byte 

5005 DEC $0606; zero in low byte forces this. 

5008 FIXLOWBYTE DEC $0605; always dec the low byte. 

Here we always lower the low byte, but lower the high 
byte only when the low byte is found to be zero. If you think 
about it, that's the way any subtraction would work. 

Comparison 

Comparing a single-byte against another single-byte is easily 
achieved with CMP. Double-byte comparison can be handled 
this way: 

(Assume that the numbers you want to compare are located 
in addresses $0605,0606 and $0700,0701. The ML program 
segment performing the comparison is located at $5000.) 

5000 SEC 

5001 LDA $0605; low byte of first number 

5004 SBC $0700; low byte of second number 

5007 STA $0800; temporary holding place for this result 
500A LDA $0606; high byte of first number 
500D SBC $0701; high byte of second number, leave result in A 
5010 ORA $0800; results in zero if A and $0800 were both zero. 

The flags in the Status Register are left in various states 
after this routine—you can test them with the B instructions 
and branch according to the results. The ORA sets the Z (zero) 
flag if the results of the first subtraction (left in $0800) and the 
second subtraction (in A, the Accumulator) were both zero. 
This would only happen if the two numbers tested were 
identical, and BEQ would test for this (Branch if EQual). 

If the first number is lower than the second, the carry flag 
would have been cleared, so BCC (Branch if Carry Clear) will 
test for that possibility. If the first number is higher than the 
second, BCS (Branch if Carry Set) will be true. You can there¬ 
fore branch with BEQ for =, BCC for <, and BCS for >. Just 
keep in mind which number you are considering the first and 
which the second in this test. 
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Double-Byte Addition 

CLC ADC and SEC SBC will add and subtract one-byte num¬ 
bers. To add two-byte numbers, use: 

(Assume that the numbers you want to add are located in ad¬ 
dresses $0605,0606 and $0700,0701. The ML program seg¬ 
ment performing the addition is located at $5000.) 

5000 CLC; always do this before any addition 

5001 LDA $0605 
5004 ADC $0700 

5007 STA $0605; the result will be left in $0605,0606 
500A LDA $0606 
500D ADC $0701 
5010 STA $0606 

It's not necessary to put the result on top of the number 
in $0605,0606—you can put it anywhere. But you'll often be 
adding a particular value to another and not needing the orig¬ 
inal any longer—adding ten points to a score for every blasted 
alien is an example. If this were the case, following the logic of 
the routine above, you would have a 10 in $0701, 0702: 

0701 0A; the 10 points you get for hitting an alien 
0702 00 

You'd want that 10 to remain undisturbed throughout the 
game. The score, however, keeps changing during the game 
and, held in $0605,0606, it can be covered over, replaced with 
each addition. 

Double^Byte Subtraction 

This is quite similar to double-byte addition. Since subtracting 
one number from another is also a comparison of those two 
numbers, you could combine subtraction with the double-byte 
comparison routine above (using ORA). In any event, this is 
the way to subtract double-byte numbers. Be sure to keep 
straight which number is being subtracted from the other. 

We'll call the number being subtracted the second number. 

(Assume that the number you want to subtract [the "second 
number"] is located in addresses $0700,0701, and the num¬ 
ber it is being subtracted from [the "first number"] is held in 
$0605,0606. The result will be left in $0605,0606. The ML 
program segment performing the subtraction is located at 
$5000.) 
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5000 SEC; always do this before any subtraction 

5001 LDA $0605; low byte of first number 
5004 SBC $0700; low byte of second number 

5007 STA $0605; the result will be left in $0605,0606 
500A LDA $0606; high byte of first number 
500D SBC $0701; high byte of second number 
5010 STA $0606; high byte of final result 

Multi-Byte Addition and 
Subtraction 

Using the methods for adding and subtracting illustrated 
above, you can manipulate larger numbers than can be held 
within two bytes (65535 is the largest possible two-byte inte¬ 
ger). Here's how to subtract one four-byte-long number from 
another. The locations and conditions are the same as for the 
two-byte subtraction example above, except the “first number" 
(the minuend) is held in the four-byte chain, 
$0605,0606,0607,0608, and the "second number" (the sub¬ 
trahend, the number being subtracted from the first number) is 
in $0700,0701,0702,0703. 

Also observe that the most significant byte is held in 
$0703 and $0608. We'll use the Y Register for Indirect Y 
addressing, use four bytes in zero page as pointers to the two 
numbers, and use the X Register as a counter to make sure 
that all four bytes are dealt with. This means that X must be 
loaded with the length of the chains we're subtracting—in this 
case, 4. 

5000 LDX #4; length of the byte chains 

5002 LDY #0, set Y 

5004 SEC; always before subtraction 

5005 LOOP LDA (FIRSTLY 
5007 SBC (SECONDLY 

5009 STA (FIRSTLY; the answer will be left in $0605-0608. 

500B INY; raise index to chains 

500C DEX; lower counter 

5010 BNE LOOP; haven't yet done all four bytes 

Before this will work, the pointers in zero page must have 
been set up to allow the Indirect Y addressing. This is one way 
to do it: 
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2000 FIRST = $FB; define zero page pointers at $FB and $FD 
2000 SECOND = $FD 

2000 SETUP LDA #5; set up pointer to $0605 

2002 STA FIRST 

2004 LDA #6 

2006 STA FIRST+ 1 

2008 LDA #0; set up pointer to $0700 

200A STA SECOND 

200C LDA #7 

200E STA SECOND+ 1 

Multiplication 

X 2 

ASL (no argument used, "Accumulator addressing mode") will 
multiply the number in the Accumulator by 2. 

X 3 


(To multiply by 3, use a temporary variable byte we'll call 
TEMP.) 

5000 STA TEMP; put the number into the variable 

5003 ASL; multiply it by 2 

5004 ADC TEMP; (X * 2 + X = X * 3) the answer is in A. 


X 4 

(To multiply by 4, just ASL twice.) 

5000 ASL; * 2 

5001 ASL; * 2 again 

X 4 (two byte) 

(To multiply a two-byte integer by 4, use a two-byte variable 
we'll call TEMP and TEMP + 1.) 

5000 ASL TEMP; multiply the low byte by 2 
5003 ROL TEMP + 1; moving any carry into the high byte 
5006 ASL TEMP; multiply the low byte by 2 again 
5009 ROL TEMP+1; again acknowledge any carry. 
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X 10 

(To multiply a two-byte integer by 10, use an additional two- 
byte variable we'll call STORE.) 

5000; first put the number into STORE for safekeeping 

5000 LDA TEMP:STA STORE:LDA TEMP + 1:STA STORE+1 

500C; then multiply it by 4 

500C ASL TEMP; multiply the low byte by 2 

500F ROL TEMP+l; moving any carry into the high byte 

5012 ASL TEMP; multiply the low byte by 2 again 

5015 ROL TEMP + l; again acknowledge any carry. 

5018; then add the original, resulting in X * 5 

5018 LDA STORE 

501B ADC TEMP 

501E STA TEMP 

5021 LDA STORE+ 1 

501D ADC TEMP + l 

5024 STA TEMP + l 

5027; then just multiply by 2 since (5*2 = 10) 

5027 ASL TEMP 
502A ROL TEMP + l 

X ? 

(To multiply a two-byte integer by other odd values, just use 
a similar combination of addition and multiplication which 
results in the correct amount of multiplication.) 

X 100 

(To multiply a two-byte integer by 100, just go through the 
above subroutine twice.) 

X 256 

(To multiply a one-byte integer by 256, just transform it into 
a two-byte integer.) 

5000 LDA TEMP 
5003 STA TEMP + l 
5006 LDA #0 
5008 STA TEMP 


438 




Appendix D: A Library of Subroutines 


Division 

- 2 

LSR (no argument used, "Accumulator addressing mode") will 
divide the number in the Accumulator by 2. 

- 4 

(To divide by 4, just LSR twice.) 

5000 LSR; / 2 

5001 LSR; / 2 again 

Hh 4 (two byte) 

(To divide a two-byte integer, called TEMP, by 2) 

5000 LSR TEMP + 1; shift high byte right 

5001 ROR TEMP; pulling any carry into the low byte 
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Some of the programs listed in this book are written in BASIC 
and contain special control characters (cursor control, color 
keys, inverse video, etc.). To make it easy to tell exactly what 
to type when entering one of these programs into your com¬ 
puter, we have established the following listing conventions. 
There is a separate key for each computer. Refer to the appro¬ 
priate tables when you come across an unusual symbol in a 
program listing. If you are unsure how to actually enter a con¬ 
trol character, consult your computer's manuals. 

Atari 

Characters in inverse video will appear like: 

Enter these characters with the Atari logo key, (A). 


When you see Type 




(DOWN > 

(LEFT > 
(RIGHT> 
(BACK S> 

(DELETE? 

<INSERT> 
(DEL LINE > 
(INS LINE) 
( T AB > 

(CLR T AB> 
(SET T AB > 

(BELL > 
(ESC) 


ESC SHIFT < 

ESC CTRL - 
ESC CTRL = 

ESC CTRL + 

ESC CTRL * 

ESC DELETE 
ESC CTRL DELETE 
ESC CTRL INSERT 
ESC SHIFT DELETE 
ESC SHIFT INSERT 
ESC TAB 
ESC CTRL TAB 
ESC SHIFT TAB 
ESC CTRL 2 
ESC ESC 


□ 

□ 


Clear Screen 



Cursor Right 
Delete Character 



Clear TAB 
Set TAB stop 
Ring Buzzer 
ESCape key 


Graphics characters, such as CTRL-T, the ball character • will 
appear as the “normal” letter enclosed in braces, e.g., {T}. 

A series of identical control characters, such as 10 spaces, 
3 cursor-lefts, or 20 CTRL-Rs, will appear as {10 SPACES}, 
{3 LEFT}, {20 R}, etc. If the character in braces is in inverse 
video, that character or characters should be entered with the 
Atari logo key. For example, {501} means to enter five inverse- 
video CTRL-Us. 
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Commodore 64, VIC, and PET 

Program listings will contain words within braces which spell 
out any special characters: {DOWN} would mean to press the 
cursor down key. {5 SPACES} would mean to press the space 
bar five times. 

To indicate that a key should be shifted (hold down the 
SHIFT key while pressing the other key), the key would be 
underlined in our listings. For example, S would mean to 
type the S key while holding the SFIIFT key. If you find an 
underlined key enclosed in braces (e.g., {10 N}), you should 
type the key as many times as indicated (in our example, you 
would enter ten shifted Ns). 

If a key is enclosed in special brackets, [< >|, you should 
hold down the Commodore key while pressing the key inside 
the special brackets. (The Commodore key is the key in the 
lower left corner of the keyboard.) Again, if the key is pre¬ 
ceded by a number, you should press the key as many times 
as indicated. 

Rarely, you'll see a solitary letter of the alphabet enclosed 
in braces. These characters can be entered by holding down 
the CTRL key while typing the letter in the braces. For ex¬ 
ample, {A} would indicate that you should press CTRL-A. 

About the quote mode: You should know that you can 
move the cursor around the screen with the CRSR keys. 
Sometimes a programmer will want to move the cursor under 
program control. That's why you see all the {LEFT}'s, 
{HOME}'s, and {BLU}'s in our programs. The only way the 
computer can tell the difference between direct and pro¬ 
grammed cursor control is the quote mode. 

Once you press the quote (the double quote, SHIFT-2), 
you are in the quote mode. If you type something and then try 
to change it by moving the cursor left, you'll only get a bunch 
of reverse-video lines. These are the symbols for cursor left. 
The only editing key that isn't programmable is the DEL key; 
you can still use DEL to back up and edit the line. Once you 
type another quote, you are out of quote mode. 

You also go into quote mode when you INserT spaces into 
a line. In any case, the easiest way to get out of quote mode is 
to just press RETURN. You'll then be out of quote mode and 
you can cursor up to the mistyped line and fix it. 

Use the following tables when entering special characters: 
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When You When You 

Read: Press: See: Read: Press: See: 


{CLR} 

| SHIFT | | CLR HOME 

; E 

(GRN) 

1 CTRL 11 6 1 

□ 

[home} 

| CLR HOME 

0 

{blu} 

rram b 

[UP} 


j n 

[yel} 

ram m 

[DOWN} 


l FI} 

rn 


[LEFT} 

| SHIFT |^CRSR-« 

3 II 

l F2} 

i » i 

El 

[RIGHT} 

□ 

[ F3 J 

i • i 

■ 

[ RVS} 

MR 

0 

l F4} 

i»i 

IB 

[OFF) 

HR 


{F5} 

i - i 

II 

Iblk} 

sm 

■ 

(F6 } 

i « i 

51 

[ WHT} 

i ctrl inn 

m 

l F7 } 

RlJ 

II 

[RED) 

ram 

e 

(F8} 

□□ 

■ 

l CYN} 

ram 

k 

< 

B 

m 

(PUR) 

sm 

i 

t 

i sH,Fr i m 

m 
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*= (Program Counter =) pseudo-op 32, 
111-12, 149-51, 203, 336, 339 
#> pseudo-op 342-43 
#< pseudo-op 342-43 
+ pseudo-op 179, 342-43 
Accumulator. See 6502, Accumulator 
Register 

Accumulator addressing 38 
ADC 239-40 

address (Program Counter) labels 7, 
36-37 

addressing modes. See 6502, instruction 
types 

AND 240-41 

with ASCII numbers 114, 154 
Apple LADS 327-32, 

BASIC wedge 331-32 

Disk Operating System file manager 

327-32 

error byte 330 

Openl 327-32 

Array (subprogram) 43, 85-93 
program listings 97-101 
ASCII 

alphabetic numbers 154-55 
characters 33, 82-83 
messages 182 

number conversion 113-16 
ASL 241-42 

with ROL 115-16, 153-54 
assembly 5-6, 34 

CIO 299 
IOCB 299 
memory 300 

Atari LADS 299-327, 348-55 
Defs 301 

Editor 301, 308-12, 350-55 

program listing 312-27 

Eval 301, 304-5 

Getsa 302 

Indisk 303 

Kernal 300, 303-4 

program listing 305-8 

modifying the Editor 311 

Openl 302 

Printops 303 

Pseudo 303 

System 305 

program listing 308 

Valdec 302 

.B (.BYTE) pseudo-op 156-58 
base opcodes 36, 226 


BASIC 

borrowing from 18-19, 105-7, 182-83 
end of program mark 152 
keyword table 10, 18 
See also tokenized keywords 
BCC 242 
BCS 242-43 
BEQ 243 

B group instructions. See Relative 
addressing 
BIT 243-44 

bit-moving instructions 38 
BMI 244 

and BPL 45-47, 83 
BNE 244-45 
borrow 266 
BPL 245 

and BMI. See BMI and BPL 
BRANCH OUT OF RANGE 11, 39 
Brannon, Charles 108, 415 
BRK 245-46 
buffer 29-30, 140 
BVC 246 
BVS 247 

carry 239, 242, 247, 266-67 
chained files. See pseudo-ops, .E; pseudo¬ 
character 8 
CLC 247 
CLD 247-48 
CLI 248 
CLV 248-49 
CMP 249-50 

and turbo-charged programming 108 
cold start 18 
comments 141-44 
Commodore 

ST (status byte) 205 
constant 4 
CPX 250-51 
CPY 251-52 

.D (.DISK) pseudo-op 181, 202-5, 345 
data base management. See Array (sub¬ 
program); Equate (subprogram) 
debugging 53-55, 149-51, 260, 339 
DEC 252 

decimal mode 239-40, 247-48, 261 
defaults 29 
changing 31 

Defs (subprogram) 15-25 
program listings 20-25 
relocatability 15-16 
transportability 16 
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delimiters 82-84 
DEX 252-53 
DEY 253 

Dis (optional subprogram) 288-96 
program listings 294-96 
disk 16 

assembly to disk. See pseudo-ops, .D 
errors 205 

padding with spacer bytes 151, 159-60 
Program Counter 107 
division 259, 439 
documentation. See comments 
double-byte ML routines 
addition 435 
comparison 434 
decrement 433 
increment 433 
subtraction 435 

Dtables (optional subprogram) 288-96 
program listings 296-98 
DUPLICATED LABEL 86-88, 90 
.E (.END) pseudo-op 201, 202, 343 
EOR 253-54 

to shift an ASCII character 83 
equate labels 7, 16, 36-37 
zero page 16 

Equate (subprogram) 81-84 
program listings 94-96 
error signals 184 
error traps (additional) 
impossible instruction 279-80 
keywords in filenames 
naked mnemonic 278-79 
Eval (subprogram) 29-76 
calculating an opcode 226 
determining addressing mode (instruc¬ 
tion type) 43-53 
program listings 55-76 
expression labels 86 
extensibility 277 

.F (.FILE) pseudo-op 112, 199-200, 343 

false target 11 

fields 

fixed length 79-81, 108 
variable length 79-83 
Findmn (subprogram) 32, 35-37, 109-11 
program listings 129-30 
flags 5, 9, 30 

Getsa (subprogram) 32, 111-13 
program listings 131-34 
.H (.HEX) pseudo-op 206 
hexadecimal (hex) numbers 42-43, 
152-56, 183-85 
Implied addressing 37-38 
INC 254 


Indisk (subprogram) 32, 34, 42, 139-76 
program listings 161-76 
initialization 29 
Input/Output (I/O) 

Commodore 105-8 
See also Pseudo (subprogram) 
instruction types. See 6502, instruction 
types 
integer 8 
interrupt 
customizing 268 
disabling 268 
forced 245 
1NX 254-55 
1NY 255 
JMP 255-56 
JSR 256-57 

covering with NOP 260 
self-modifying indirect 311 
Kernal. See Atari LADS, Kemal; Com¬ 
modore, Kernal 
labels 40-42 

storing in data base 83-85 
See also address (Program Counter) la¬ 
bels; DUPLICATED LABEL; equate la¬ 
bels; expression labels; source labels; 
UNDEFINED LABEL 
LADS 

Apple. See Apple LADS 
assembly 34 
Atari. See Atari LADS 
buffers 227-28 
command summary 338-39 
development and philosophy 79-81, 
108-11, 150-51 
disassembler. See Dis (optional 
subprogram) 
flags 228-31 
how to use 335-55 
modifying 184, 200-201, 277-98 
object code listings 357-414 
Program Counter 33, 86, 149-51 
RAM-based assembly 282-86 
registers 227-28 
relocating 15 
rules for use 345 
tape use 348 
zero page usage 17-18 
LDA 257-58 
LDX 258 
LDY 258-59 
looping 81-82 
linked files 

See pseudo-ops, .F; pseudo-ops, .E 
lookup tables 108-11 
loop counter 252-53 
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LSR 259 

Machine Language Editor (MLX) 415 
Machine Language for Beginners 34 
Machine Language (ML) routines. See 
double-byte ML routines; multi-byte 
ML routines 
Mapping the Atari 327 
Math (subprogram) 179-80 
program listings 186-87 
"Micromon" 150 

MLX. See Machine Language Editor 
program listings 419-31 
mnemonic instructions. See 6502, instruc- 

modifying LADS 184, 200-201, 277-98 
monitor 3 

multi-byte ML routines 
addition 436 
subtraction 436 
multiplication 115-16, 437-38 
.N (.NO) pseudo-op 204-5 
NAKED LABEL 84 
NOP 260 

NO START ADDRESS 112 
numbers 8 

.O (.OBJECT code to RAM) pseudo-op 
181, 204, 344 
object code 5, 181 
opcodes. See 6502, opcodes 
Openl (subprogram) 106-8 
program listings 117-29 
ORA 260-61 

with alphabetic numbers 154-55 
output. See Input/Output; Printops 
(subprogram) 

OVERFLOW 47 
.P (.PRINTER) pseudo-op 204 
parallel tables 108-11, 221-27 
PHA 261 

and PLA 45-47, 53 
PHP 262 
PLA 262 
and JSR 256 

and PHA. See PHA and PLA 
PLP 262-63 
pointer 4, 30 
printing 
addresses 200 
hex numbers 185 
routines 184-85 
source code 49-51 
Printops (subprogram) 180-85 
program listings 187-95 
Program Counter. See LADS, Program 
Counter 


Pseudo (subprogram) 199-217 
program listings 207-17 
pseudo-ops 

*= (Program Counter =) 32, 111-12, 

149-51, 203, 336, 339 

#> 342-43 

#< 342-43 

+ 179, 342-43 

,B (.BYTE) 156-58 

.D (.DISK) 181, 202-5, 345 

.E (.END) 201, 202, 343 

,F (.FILE) 112, 199-200, 343 

.H (.HEX) 206 

.N (.NO) 204-5 

.0 (.OBJECT code to RAM) 181, 204, 
344 

.P (.PRINTER) 204 
.S (.SCREEN) 206 
RAM-based assembly 282-86 
range checking 179 
redefined label 87 
register 4, 29 

Relative addressing 44-47 
remarks. See comments 
ROL 263-64 

with ASL. See ASL, with ROL 
ROR 264-65 
with LSR 259 
RT1 265 
RTS 265-66 

.S (.SCREEN) pseudo-op 206 
SBC 266 
SEC 266-67 
SED 267 
SEI 268 
semicolon 341 
seventh bit (bit 7) 9-10 
shifted characters 82, 147, 244-45 
signed arithmetic 10, 239, 244-45 
branching 46-47 
Simple Assembler 34 
6502 

Accumulator Register 257 
addressing modes. See 6502, instruction 

bug 255-56 

instruction types 37-38, 43-45, 222-24 
opcodes 221-22, 225 
Status Register 5, 9, 30, 246 
X Register 258 
Y Register 258 

printout. See printing, source code 
source files 335 
source labels 88 
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springboards 10, 39, 145 
stack 261, 262, 265, 272 
start address 32-33. See also pseudo-ops, 

STA 269 

Status Register. See 6502, Status Register 
STX 269 
STY 269-70 
subprogram 7-8 
suction routine 140 
SYNTAX ERROR 199 
tables. See lookup tables 
Tables (subprogram) 36, 108, 221-36 
program listings 232-36 
TAX 270 
TAY 270-71 
toggle 253 


tokenized keywords 139, 142, 144-46, 
160, 199-200 
TSX 271 

turbo-charged programming 108 
TXA 271-72 
TXS 272 
TYA 273 

types. See 6502, instruction types 
UNDEFINED LABEL 91-92 
Valdec (subprogram) 32-33, 43, 113-16 
program listings 134-36 
registers 228 
variable 4 
vector 4 
warm start 18 
zero page address labels 93 
Zero Page Y addressing 53 
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To order your copy of the LADS Disk call our toll-free US 
order line: 1-800-334-0868 (in NC call 919-275-9809) or send 
your prepaid order to: 

LADS Disk 

COMPUTE! Publications 
P.O. Box 5406 
Greensboro, NC 27403 


Please specify whether you want the Apple, Atari or Com¬ 
modore LADS. All orders must be prepaid (check, charge, or 
money order). NC residents add 4.5% sales tax. 


Send _ copies of the LADS Disk at $12.95 per copy for 

(check one) □ Apple □ Atari □ Commodore 


Subtotal $. 


Shipping & Handling: $1.00/disk* $. 


Sales tax (if applicable) $. 


Total payment enclosed $_ 

'Outside US and Canada, add $3.00 per disk for shipping and handling. All 
payments must be in US funds. 


□ Payment enclosed 

Charge □ Visa □ MasterCard □ American Express 


Acct. No. 


Exp, Date _ 


Name _ 
Address 


City 


State _ Zip 


Please allow 4-5 weeks for delivery. 














ERRATA 


A Note To VIC-20 Users: 

To insure reliable assembly with the LADS assembler on the 
VIC, leave the .S (print to screen) pseudo-op active at all 
times. 





This is the companion volume to the best seller. Machine Language for 
Beginners, about which the critics have said: 

"Understandable" —The New York Times 

"Presents the machine language novice with a very good tutorial in 

simple, understandable terms." — Antic 

"I highly recommend Machine Language for Beginners as your first 
introduction to the world of machine language." — Commodore 
Power/Play 

"This is an excellent book for anyone considering learning machine lan¬ 
guage programming. It is well written and easy to follow, and everything 
is presented in a logical and orderly fashion." —RUN 
"Highly recommended . . . usable, understandable . . . abounds in 
illustrations, standards and examples." 

—The Midnight Gazette 

"It lives up to its title. I have about six books on this subject, and this is 
by far the most readable of the group."—V ICtims Newsletter 
"The best book on introducing 6502 code available."—Ian Chadwick, 
author of Mapping the Atari 

The Second Book of Machine Language picks up where Machine Language 
for Beginners left off. This new book contains one of the most powerful 
machine language assemblers currently available. The LADS assembler 
is a full-featured, label-based, programming language which can greatly 
assist you in writing machine language programs quickly and easily. 

You work in an environment with which you're already familiar: 
BASIC. You can use line numbers, multiple statements on a line, named 
variables and subroutines, remarks, error messages, and various pro¬ 
grammers' aids like automatic line numbering, search and replace, etc. 

But the book is more than a sophisticated program. It's also a clear, 
detailed tutorial on how large, complex machine language programs can 
be constructed out of manageable subprograms. Using LADS as the 
example, each instruction is explained, each subroutine is examined. 
Many sophisticated machine language techniques are illustrated and 
thoroughly explained — everything from data base management to 
communication with printers and disk drives. 

There are powerful computer languages and there is good docu¬ 
mentation, but rarely has a sophisticated language been so completely 
documented as it is in this book. When you finish with this book, you'll 
not only have a deeper understanding of machine language—you'll also 
have one of the most powerful machine language assemblers available. 

ISBN 0-942386-5301 

^jHU^nodore 64, Apple (II, 11+ , He, and lie, DOS 3.3), VIC-20 (8K RAM expansion required). Atari 
(inclHnng XL, 40K minimum), and PET/CBM (Upgrade and 4.0 BASIC). 


